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INTRODUÇÃO 


Este livro é exatamente o tipo de livro de programação que eu gostaria de ler. Há vários 
anos, quando comecei a programar, procurei um livro que trouxesse algoritmos para 
problemas tais como ordenações, listas encadeadas, simulações e análise de expressões, de 
uma maneira clara e direta. Eu também queria informações sobre os problemas mais 
comuns encontrados durante a programação. Nunca encontrei o livro que procurava. 
Agora, já um programador experiente, eu escrevi tal livro. 

Este livro trata de vários assuntos, e traz muitos algoritmos, procedimentos, 
funções e rotinas escritos na linguagem Turbo Pascal. O Turbo Pascal é o padrão em 
Pascal para microcomputadores. Existem compiladores Turbo Pascal disponíveis para 
praticamente qualquer microcomputador. Eu usei o compilador Turbo Pascal do IBM PC 
nos exemplos deste livro. Entretanto, a maior parte dos exemplos pode ser compilada e 
executada em qualquer compilador Pascal. 

O Capítulo 1 é uma breve revisão da linguagem. O Capítulo 2 discute 
ordenação, incluindo matrizes e arquivos de disco. O Capítulo 3 trata de pilhas,* filas, 
listas encadeadas e árvores binárias. Talvez isto pareça demais para ser discutido em um 
só capítulo, mas estes conceitos juntos formam uma unidade bastante sólida. 

O Capítulo 4 fala dos métodos de alocação dinâmica, e o Capítulo 5 apresenta 
um resumo do interfaceamento com o sistema operacional e rotinas em linguagem de 
máquina. O tópico do Capítulo 6 é estatística, incluindo um programa completo. O 
Capítulo 7 é sobre códigos, cifras, e inclui um pequeno resumo sobre a história da 
criptografia. O Capítulo 8 descreve vários geradores de números aleatórios e discute seu 
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uso em duas simulações: as filas de caixa de um supermercado e o gerenciamento de uma 
carteira de ações pelo método random-walk. 

O Capítulo 9, o meu favorito, contém um analisador recursivo descendente 
completo. (Há alguns anos eu teria dado qualquer coisa por um programa como este.) Este 
capítulo é para quem precisa analisar expressões. O Turbo Database Toolbox e o Graphix 
Toolbox, duas extensões muito úteis do Turbo Pascal, são comentados nos Capítulos 10 e 
11, respectívamente. O assunto do Capítulo 12 é eficiência, portabilidade e depuração de 
programas. O livro termina com um apêndice sobre a conversão de programas de outras 
linguagens para Turbo Pascal e outro sobre as diferenças entre as versões 3.0 e 4.0. 





Este livro utiliza a apresentação e resolução de problemas para ilustrar conceitos 
avançados da linguagem de programação Pascal, dando especial ênfase ao Turbo Pascal da 
Borland. Cada capítulo trata de uma área diferente, apresentando soluções para tarefas de 
programação, e analisando o estilo e a estrutura de cada solução apresentada. Assim, 
tópicos avançados de Pascal são explorados, bem como a teoria de programação por trás 
de cada algoritmo. Para tirar total proveito deste livro você deve ter uma certa experiência 
com programação em Pascal, saber operar o sistema Turbo Pascal e ser capaz de digitar e 
compilar programas simples. 

Para melhor identificação, todos os nomes de variável, palavras reservadas do 
Pascal, nomes de funções e de procedimentos estarão em negrito. 


AS ORIGENS DO PASCAL 


O Pascal, cujo nome é uma homenagem ao filósofo Blaise Pascal, foi inventado por 
Niklaus Wirth no início da década de 70. Originalmente, a linguagem de programação 
Pascal foi criada para ser uma linguagem educacional, introdutória, para ajudar progra¬ 
madores iniciantes a desenvolver bons hábitos, permitindo a elaboração de programas 
claros, concisos e estruturados. Antes do Pascal, a introdução à programação se fazia, em 
geral, através do Fortran, uma linguagem desestruturada e bem mais antiga. Wirth 
acreditava que muitos dos erros mais comuns de programação poderiam ser evitados com 
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o uso de uma linguagem estruturada por blocos, e que trouxesse, embutido, um severo 
controle de tipos. O Pascal é assim. Isto significa que variáveis e constantes de um tipo 
não podem ser livremente misturadas com variáveis e constantes de outro tipo. Por 
exemplo, ambos os termos de uma atribuição devem ser do mesmo tipo (com uma exceção: 
a variável do lado esquerdo pode ser do tipo real quando a expressão do lado direito for 
inteira). O controle exaustivo de tipos ajuda a prevenir erros, pois força o programador a 
elaborar expressões sempre compatíveis. 

No Turbo Pascal, nomes de variáveis consistem em uma letra ou em um 
sublinhado seguidos de letras, dígitos ou sublinhados (o comprimento máximo 
permitido é de 127 caracteres). 

Todas as seqüências de caracteres (íTrt^gi') são colocadas entre apóstrofos 
(diferente de outras linguagens, tal como o Basic, onde aspas são usadas). 

O Pascal permite que se declarem dados escalares de cinco tipos: 

Tipo Significado 

char Um caractere de 1 byte de tamanho. 

byte Um inteiro de 1 byte de tamanho, com valor entre 0 e 255. 

integer Um inteiro com valor entre -32768 e 32767. 

real Um número decimal, com até 11 dígitos de precisão. 

Booiean TRUE (verdadeiro) ou FALSE (falso). 

Apesar da semelhança, o controle de tipos do Pascal não permitirá que byte e char sejam 
intercambiados. Variáveis do tipo byte são usadas no lugar de variáveis do tipo integer, 
para acelerar a execução, pois em algumas máquinas operações com bytes são mais rápidas 
que operações com inteiros. Além dos escalares, o Pascal admite matrizes ( arrays) de cada 
um dos cinco tipos. 

Apesar de seu propósito educacional original, a facilidade de uso e o enfoque 
altamente estrutural converteram ao Pascal muitos programadores experientes de outras 
linguagens. Quando começou a ser usado mais frequentemente na confecção de softwares 
comerciais, o Pascal necessitava de muitas extensões. Antes do Turbo Pascal, cada 
compilador trazia um grupo diferente de extensões, acarretando sérias dificuldades à 
transposição de programas. Entretanto, como o Turbo Pascal se tomou um padrão, muitas 
de suas extensões podem, agora, ser usadas livremente. 
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O PASCAL ENQUANTO LINGUAGEM ESTRUTURADA 


O Pascal é uma linguagem estruturada, semelhante em alguns aspectos ao Algol e ao C. O 
que caracteriza uma linguagem estruturada é a possibilidade de dividir a informação em 
compartimentos estanques, independentes um do outro. Ou seja, todas as informações e 
instruções necessárias à realização de uma tarefa qualquer podem ser seccionadas e 
escondidas do resto do programa. Isto, em geral, é feito através do uso de sub-rotinas. 
algumas vezes chamadas subprogramas, com variáveis locais temporárias. Deste modo, é 
possível evitar que outras partes do programa sejam afetadas por ocorrências internas a 
uma sub-rotina. O uso excessivo de variáveis globais , conhecidas por todo o programa, 
permite o aparecimento de efeitos colaterais imprevistos e indesejáveis. No Pascal, todos 
os subprogramas são funções discretas ou procedimentos. 

As funções e os procedimentos são os blocos fundamentais do Pascal. Num 
programa qualquer, uma tarefa específica pode ser definida e escrita em separado, numa 
função ou num procedimento. Depois de corrigida, tal função ou procedimento funcionará 
de modo apropriado, sem causar efeitos colaterais em outras partes do programa. Todas as 
variáveis declaradas naquela função ou procedimento são conhecidas apenas ali. 

Em Pascal, estruturas são criadas através de blocos de instruções. Um bloco de 
instruções é um grupo de comandos conectados logicamente, de modo a poderem ser 
tratados como uma unidade. Um bloco é criado quando se colocam linhas de instrução 
entre as palavras begin e end, como ocorre a seguir: 

i £ x < 10 then 

bes i T) 

WriteLn ( 'numero muito baixo, tente de novo' )j 

ResetContaX (-1); 

enri; 


Neste exemplo, os comandos após if e entre begin e end serão executados se x 
for menor que 10. O primeiro comando escreve na tela a linha numero muito baixo, ten¬ 
te de novo, e a segunda linha chama um procedimento. Estes dois comandos podem ser 
tratados como uma unidade, um bloco de instruções. Eles estão ligados, não havendo 
maneira de executar um deles sem que o outro também o seja. Em Pascal, cada comando 
pode ser um comando simples ou um bloco de comandos. O uso de blocos de comandos 
permite a criação de programas bastante legíveis e com uma lógica fácil de acompanhar. 
Os blocos também ajudam na confecção de programas melhores e com menos erros, visto 
que o sentido e a função de cada bloco são claros. 
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Com o crescimento da popularidade do Pascal, cada vez mais programadores 
passaram a fazer em Pascal todos os seus programas. A existência de compiladores Pascal 
para quase todos os computadores toma fácil e barato o processo de transposição de 
programas entre máquinas diferentes. 

No Turbo Pascal, cada programador pode criar sua própria biblioteca de 
funções, adequada a seus usos e a seu estilo. E, como o Turbo Pascal permite que arquivos 
externos sejam incluídos no programa durante a compilação, grandes projetos podem ser 
mais facilmente administrados. 


EXTENSÕES DO TURBO PASCAL 


Nesta seção serão abordados os acréscimos mais importantes, realizados pela Borland ao 
Pascal padrão, quando da criação do Turbo Pascal. Portanto, se você já tiver alguma 
experiência com o Turbo Pascal, poderá passar diretamente ao Capítulo 2. 

A decisão de expandir uma linguagem deve sempre estar baseada em razões 
sólidas. Cada acréscimo feito reduzirá a portabilidade dos programas escritos nesta 
linguagem, ou seja, acréscimos afastam a linguagem do padrão. Em geral, uma linguagem 
é expandida porque faltam a ela funções necessárias. Ao Pascal faltavam algumas 
características que um programador profissional precisa e espera encontrar numa 
linguagem, tais como manipulação de seqüências de caracteres, endereçamento absoluto e 
facilidades de sobreposição. O Pascal era uma linguagem educacional. A Borland fez dele 
uma linguagem de uso geral. 

Os acréscimos implementados pela Borland se concentram em duas áreas, 
comandos e procedimentos predeflnidos. Primeiro serão discutidos os comandos, depois os 
procedimentos, e finalmente algumas diferenças entre o Pascal padrão e o Turbo Pascal. 


ABSOLUTE 

Uma das mais importantes expansões do Turbo Pascal é o modificador absolute. No 
Pascal padrão era impossível obrigar uma variável a residir num endereço específico da 
memória. Isto não era necessário numa linguagem educacional. Entretanto, numa 
linguagem de desenvolvimento de software é essencial. 
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Imagine um programa que use uma área reservada da memória; a memória de 
vídeo por exemplo. Para que isto seja feito, deve ser possível especificar um determinado 
endereço para uma variável. No Turbo Pascal, basta adicionar o modificador absolute à 
declaração da variável, após declarar o tipo da mesma. No IBM PC e compatíveis o 
endereço é dado na forma segmento:cffset . Em outras máquinas usa-se a forma padrão de 
endereçamento. Num IBM PC, uma variável real, residente no segmento 0, offset 9000, é 
declarada do seguinte modo: 

contador: real absolute 0:9000; 

Muito cuidado ao declarar variáveis usando o absolute; você pode arruinar seu 
programa, seu sistema operacional, ou ambos. 

O absolute também pode ser usado para fazer com que duas variáveis dividam o 
mesmo espaço da memória, bastando para isto usar o nome de uma das variáveis como 
alvo do absolute da outra. No exemplo abaixo, teste e contador dividem o mesmo espaço: 

teste: integer; 

contador: integer absolute teste; 


EXTERNÀL 

No Pascal padrão, um programa não pode usar funções ou procedimentos 
escritos em outra linguagem. Entretanto, existem muitas ocasiões em que isto é útil e 
necessário. Um sintetizador de voz, por exemplo, pode ser controlado por um módulo 
especial escrito em assembly. Para isto existe no Turbo Pascal o modificador externai, 
cuja função é permitir que sub-rotinas externas sejam incluídas em um programa. 

O externai informa ao programa em Pascal que uma rotina escrita em assembly , 
residente num determinado arquivo, será usada. O subprograma externo declarado não 
deve estar escrito no programa em Pascal; você deve apenas especificar os parâmetros (se 
houver) e o nome do arquivo de disco onde tal subprograma pode ser encontrado. Para 
declarar, por exemplo, um procedimento chamado Falar com um parâmetro tipo 
seqüência de caracteres (, string ) como externai, num arquivo fala, você escreveria assim: 

procedure Falar (palavra:string); externai Tala’; 


Uma função é declarada de modo semelhante. 
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Para utilizar subprogramas externos você, além de saber programar em 
assembly, deve conhecer a arquitetura de seu computador. Posteriormente, examinaremos 
com mais detalhes o uso de rotinas e comandos em assembly dentro de programas escritos 
em Turbo Pascal. 


INLINE 

O comando inline permite a inclusão de instruções em linguagem de máquina num 
programa, característica que pode ser útil tanto para controlar dispositivos especiais de 
hardware quanto para escrever rotinas curtas em linguagem de máquina, usando o Turbo 
Pascal como apoio. O inline será discutido com mais detalhes no Capítulo 5, mas o 
método básico de uso é o que segue. 

O código de máquina a ser inserido no programa é escrito entre parênteses, após 
a palavra inline. Cada byte ou palavra são separados por uma barra (/). Os sinais “+” e 
podem ser usados para somar ou subtrair. Um asterisco indica referência de counter 
Location. Todo o código é escrito em números, isto é. mnemónicos não podem ser usados. 
Como inline é um comando, a linha termina com um pooto-e-vírgula. Por exemplo, a linha 

inline ($C9 \$E900); 

insere três bytes no programa: $C9, SE9 e 00. 


OVERLAY 

Uma das extensões mais importantes do Turbo Pascal é o comando overlay. Este permite 
que sejam escritos, compilados e executados programas cujo tamanho excederia à 
capacidade de memória do computador. Isto é feito armazenando, em disco, subprogramas, 
chamados sobreposições ( overlays ), qoe são lidos e usados quando necessário. 

Para criar uma sobreposição, o comando overlay é colocado na frente da função 
ou procedimento a ser usado. Quando o Turbo Pascal encontra um comando overlay, ele 
imediatamente compila a rotina que se segue num arquivo separado. O Manual de Turbo 
Pascal traz uma explicação detalhada sobre o uso deste comando. 
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shr Esbl 

shr significa shift right (deslocamento à direita) e shl significa shift left (deslocamento à 
esquerda). Estes operadores são usados só com variáveis do tipo integer. Eles causam um 
número especificado de deslocamentos, à direita ou à esquerda, nos bits da variável sobre 
a qual operam. Este tipo de operação é usado para escrever programas a nível de sistema e 
controladores de dispositivos. A forma geral destas operações é: 

expressão inteira shr número 
ou 

expressão inteira shl número 
onde número é um inteiro entre 1 e 15. 

Vejamos um exemplo do funcionamento destes operadores. A seguir temos a 
representação binária de uma variável integer chamada contador, cujo valor atual é 8: 

0000 1000 

Depois da execução da linha de comando 
contador : = contador shr 1; 
contador terá valor 4, representado assim: 

0000 0100 

Todos os bits foram deslocados uma posição para a direita. Se o Turbo Pascal agora 
executar o comando 

contador : = contador shr 3; 

contador passará a valer 32, sendo escrito 

0010 0000 

Como você deve ter notado, um deslocamento à direita equivale a uma divisão 
por dois, enquanto um deslocamento à esquerda equivale a uma multiplicação por dois. 
Muitas vezes, deslocamentos são usados para dobrar ou reduzir um numero à metade. 
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SEQÜÊNCIAS DE CARACTERES (STREMGS) 

No Pascal padrão não há nenhum método trivial de manipulação de seqiiências de 
caracteres. Entretanto, o Turbo Pascal possui um tipo especial de matriz de caracteres 
chamado string, que facilita muito o uso de seqiiências de caracteres. Tais sequências 
podem ter entre 0 e 255 caracteres de comprimento. Para declarar uma seqüência de 
caracteres de tamanho máximo 20, escreve-se simplesmente: 

var 

sequencia_teste:string [20]; 

Uma variável do tipo string pode ter qualquer comprimento maior que zero e menor ou 
igual ao tamanho máximo especificado. 


XOR 

O operador XOR, ou “ou exclusivo”, pode ser aplicado a operandos dos tipos integer e 
Boolean. 


O uso de XOR com operandos inteiros causa uma operação lógica “ou 
exclusivo” entre cada bit dos dois números. Com operandos booleanos, é obtida uma 
resposta TRUE/FALSE. 

Na operação XOR entre inteiros, cada bit do resultado é determinado pela 
seguinte tabela-verdade: 


XOR 

0 

1 

0 

0 

1 

1 

1 

0 


Cada bit do resultado será 1 se, e somente se , um bit for 1 e o outro 0 nos operandos, 
deste modo: 


10 11 00 10 '. 
XOR 0 110 10 0 1 


1101 1011 
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Com operandos Boolean, o resultado é obtido através da tabela-verdade 

abaixo; 


XOR 

F 

T 

F 

F 

T 

T 

T 

F 


O resultado da operação XOR será TRUE se apenas um dos operandos for TRUE. Por 
exemplo, se X e Y forem variáveis do tipo Boolean e X for TRUE e FALSE, o resultado 
de X XOR Y será TRUE. 


PROCEDIMENTOS PREDEFINIDOS 


O Turbo Pascal traz um rico sortimento de procedimentos predefinidos, criados para 
simplificar a tarefa da programação. A maioria destes procedimentos se concentra em três 
áreas distintas: controle de tela, manipulação de seqüências de caracteres e acesso ao 
sistema operacional. Estes novos procedimentos são tratados em outra parte deste livro, 
mas aqui é dada uma rápida descrição de alguns deles. 


MANIPULAÇÃO DE GRÁFICOS E TELA 


Os procedimentos básicos dê manipulação de tela, bem como seus efeitos, estão listados a 
seguir: 


Procedimento Efeito 


CrtEol 

CrtExit 

Crtlnit 

ClrScr 

DelLine 

GotoXY 

InsLine 

Low Video 

NonnViden 


Limpa a linha da posição do cursor até o final. 

Libera o terminal através do envio de uma seqüência de caracteres. 
Inicializa o terminal através do envio de uma seqüência de caracteres. 
Limpa a tela. 

Apaga a linha da posição do cursor até o finai. 

Posiciona o cursor na posição da tela de coordenadas X, Y. 

Insere uma linha na posição do cursor. 

Reduz a luminosidade dos caracteres enviados para a tela. 

Retorna à luminosidade normal. 
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Os procedimentos anteriores são usados em vários programas deste livro. 

Além destes procedimentos, o Turbo Pascal do IBM PC inclui rotinas de gráfi¬ 
cos em cores, gráficos de tartaruga e rotinas de criação de janelas que podem ser usadas 
para dar um toque profissional aos seus programas. 


MANIPULAÇÃO DE SEQÜÊNCIAS DE CARACTERES 

Como já foi dito, uma das extensões mais importantes do Turbo Pascal é aquela que per¬ 
mite a criação de variáveis do tipo string. Os procedimentos abaixo listados foram adicio¬ 
nados ao Turbo Pascal como suporte a este novo tipo de dado: 

Procedimento Efeito 

Delete Apaga uma subseqüência^ dada a posição inicial e o comprimento. 

Insert Insere uma seqüência em outra, dada a posição inicial da segunda. 

Str Converte uma variável real ou integef em uma seqüência de caracteres. 

Vai Converte uma seqüência ds caracteres em um valor real ou integer. 

As seguintes funções também ajudam na manipulação de seqüências de caracteres: 

Função Efeito 

Copy Copia uma seqüência de caracteres inteira ou parcialmente. 

Concat Concatena duas seqüências. 

Length Dá o comprimento de uma seqüência. 

Pos Dá a posição inicial de uma subseqüência dentro de outra seqüência. 


ACESSO AO SISTEMA OPERACIONAL 

O Turbo Pascal possui um procedimento predefmido que permite aos programas acesso di¬ 
reto a rotinas do sistema operacional. Para os sistemas CP/M-80 e CP/M-86, os procedi¬ 
mentos Bdos e Bios chamam o sistema operacional. No IBM PC e em outras máquinas que 
utilizam o MS-DOS, o procedimento usado é o MsDOS. (Nota do Revisor Técnico: Há, 
também, o procedimento intr.) 

Os três procedimentos funcionam do mesmo modo. Através deles, o número de 
uma função e os parâmetros necessários são passados ao sistema operacional. O uso das 
funções do sistema operacional é o assunto do Capitulo 5. 
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DIFERENÇAS ENTRE O TURBO PASCAL E O PASCAL PADRÃO 


Além dos acréscimos e extensões já discutidos, o Turbo Pascal e o Pascal padrão diferem 
em alguns outros aspectos. Se você não tem muita experiência com o Turbo Pascal, é im¬ 
portante que esteja atento às seguintes diferenças entre este último e o Pascal padrão: 

- O procedimento new, que aloca uma variável dinâmica para ser usada com 
ponteiros, não aceita especificação de registros variantes. Se necessário, isto 
pode ser contornado com o uso do procedimento getroem. 

- Um goto não pode remeter para fora do bloco onde ele está. Isto quer dizer 
que tanto o goto quanto o rótulo indicador de destino devem pertencer ao 
mesmo bloco. 

- Para usuários do CP/M-80: subprogramas recursivos não podem usar parâme¬ 
tros do tipo var. 

- O get e o put não foram incluídos no Turbo Pascal. Em vez disto, os coman¬ 
dos read e write foram expandidos para incluir entrada e saída de disco. 

- O comando packed pode ser usado, mas não terá efeito algum. Além disto, os 
procedimentos pack e unpack também não foram incluídos. 

- O procedimento page não foi incluído. 





É bem possível que não existam, em toda a, ciência da computação, duas áreas tão 
importantes e tão extensamente estudadas quanto as que tratam da ordenação e da busca de 
informação. Rotinas de ordenação e busca são utilizadas por todos os programas de bancos 
de dados, bem como por compiladores, interpretadores e sistemas operacionais. Este 
capítulo trata dos processos básicos de ordenação e busca de informações. Em primeiro 
lugar, serão discutidos os métodos de ordenação, pois, em geral, a ordenação da 
informação toma mais fácil uma posterior busca da mesma. 


ORDENAÇÃO 


Ordenação (sorting) é o processo pelo qual um conjunto de dados similares é colocado 
numa ordem crescente ou decrescente, ou seja, uma lista ordenada crescente i composta 
por n elementos será da forma: 

h * h * ... * *n 

Os algoritmos de ordenação se dividem em dois grandes grupos: a ordenação por 
matrizes, tanto na memória da máquina quanto em arquivos de disco, e a ordenação 
seqüencial, em arquivos de disco ou fita. Este capítulo se concentra na ordenação 
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matricial, por ser ela de maior importância para os usuários de microcomputadores. 
Entretanto, a ordenação seqüencial é também brevemente abordada. 

A principal diferença entre os dois métodos de ordenação está na disponibili¬ 
dade dos elementos. Na ordenação matricial, todos os elementos da matriz estão 
disponíveis ao mesmo tempo. Isto significa que qualquer elemento pode ser comparado ou 
permutado com qualquer outro a qualquer momento. Já num arquivo seqüencial, apenas 
um elemento estará disponível a cada momento. Por este motivo, as técnicas de ordenação 
usadas em cada um dos casos são muito diferentes. 

Normalmente, quando se ordena uma informação, apenas uma parte desta 
informação é usada como chave de ordenação , com base na qual as comparações são 
feitas. Porém, se uma permutação é feita, toda a estrutura do dado permutado é transferida. 
Numa mala direta, por exemplo, o CEP pode ser usado como chave. Mas, se uma 
permutação for feita, o nome e o endereço acompanharão o CEP. Por motivos didáticos, 
todos os exemplos apresentados neste capítulo se referem a matrizes de caracteres; tais 
métodos, entretanto, poderão ser aplicados a quaisquer tipos de estrutura de dados. 


CLASSES DE ALGORITMOS DE ORDENAÇÃO 

Existem três processos distintos dè‘ordenação de matrizes: 

- por permutação; 

- por seleção; 

- por inserção. 

Imagine, por exemplo, um baralho. Para ordená-lo por permutação , você espalharia as 
cartas sobre uma mesa, viradas para cima. Você, então, começaria a permutar as que 
estivessem fora de ordem, até que o baralho estivesse ordenado. 

Para ordenar o baralho por seleção , você selecionaria, das cartas sobre a mesa, a 
de menor valor, separando-a das demais. Das cartas restantes, você novamente separaria a 
de menor valor, colocando-a sob a primeira. Quando não restasse nenhuma carta sobre a 
mesa, o baralho estaria ordenado (pois você selecionou sempre a carta de menor valor das 
que estavam na mesa). 

Numa ordenação por inserção, você seguraria todo o baralho na mão, retirando 
uma carta por vez. Cada carta retirada você colocaria numa nova pilha, sobre a mesa, 
inserindo sempre cada carta em sua posição correta nesta pilha. O baralho estaria ordenado 
quando não restasse nenhuma carta em sua mão. 



14 Turbo Pascal Avançado 


AVALIANDO OS ALGORITMOS DE ORDENAÇÃO 

Para cada método de ordenação existem vários algoritmos, cada um com seus méritos 
próprios; a avaliação de um algoritmo de ordenação, entretanto, é feita com base nas 
respostas às seguintes perguntas: 

- Quanto tempo o algoritmo gasta para ordenar informação num caso médio? 

- Quanto tempo, ele gasta em seu pior e em seu melhor caso? 

- O algoritmo apresenta ou não um comportamento natural ? 

- Como ele se comporta frente a elementos com chaves de ordenação iguais? 

O tempo gasto pelo algoritmo é de grande importância. A velocidade de ordenação de uma 
matriz é diretamente proporcional ao número de permutações e comparações realizadas, 
sendo as permutações mais lentas. Em alguns algoritmos o tempo de execução se relaciona 
de modo exponencial com o tamanho da lista, enquanto em outros esta relação é 
logarítmica. 

Os tempos do melhor e do pior caso são importantes se tais situações são 
esperadas com freqüência. Um algoritmo de ordenação muitas vezes tem um bom • caso 
médio e um péssimo pior caso, ou vice-versa. 

Um algoritmo apresentará um comportamento natural se a quantidade de 
trabalho por ele realizada for diretamente proporcional à ordenação prévia da lista, isto é, 
se ele trabalhar menos numa lista já ordenada, aumentar a quantidade de trabalho na 
medida em que cresce o estado de desordem da lista, e realizar a maior quantidade de 
trabalho numa lista em ordem inversa (a quantidade de trabalho realizada por um algoritmo 
se mede pelo número de comparações e permutações por ele executadas). 

Para entender a importância do tratamento dado pelo algoritmo a elementos de 
chaves iguais, imagine um banco de dados organizado por uma chave principal e por uma 
subchave, secundária. Por exemplo, uma mala direta em que o CEP seja a chave principal 
e o sobrenome a chave secundária. Quando um novo endereço é açrescentado e a lista 
reordenada, apenas as chaves secundárias referentes à chave principal daquele endereço 
devem ser rearranjadas. 

Nas seções seguintes, algoritmos representativos de cada classe serão analisados 
e sua eficiência discutida. Todos os algoritmos usarão as declarações do tipo abaixo: 

type 

Dado = char; 

Matriz_Dados = array[1...80] of Dado; 
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Assim, para mudar o tipo de dado basta mudar estas declarações. O tamanho da 
matriz é também arbitrário, podendo ser modificado sempre que necessário. 


O BUBBLE SORT Um dos mais conhecidos algoritmos de ordenação é o Bubble Sort. 
Sua popularidade deriva de seu nome atraente e de sua simplicidade. Este, no entanto, é 
um dos piores algoritmos de ordenação jamais inventados. 

O Bubble Sort utiliza o método de classificação por permutação. Ele realiza 
repetidas comparações e, quando necessário, permutações de elementos adjacentes. Seu 
nome vem da similaridade entre este método e o comportamento de bolhas em um tanque 
de água, oode cada bolha busca seu próprio nível. A seguir está listado o Bubble Sort em 
sua forma mais simples: 

procedure Bubble(var itew: Matriz_0ado5 } conta:integer ); 
var 

i., j: integer; 
x: Dado; 
begin 

for i:=2 to conta do 
begin for j:=conta downto i do 
if ite»Cj-13 > ite»Cj3 then 
begin 

x := ite»[ j-i3; 
itett[j-13 i= ite»Cj3j 
i te»[ j 3 : = x; 
end ? 
end; 
end; 


Neste exemplo, item é a matriz de Dado a ser ordenada e conta é o número de elementos 
da matriz. 

Um Bubble Sort é controlado por dois loops. Como a matriz possui um número 
conta de elementos, o loop externo faz com que ela seja varrida conta-1 vezes. Isto 
garante que, na pior das hipóteses, cada elemento esteja em sua posição correta ao fim do 
prcK^dimento. O loop interno, por sua vez, realiza as comparações e permutações. 

Esta versãb do Bubble Sort coloca uma matriz de caracteres em ordem 
ascendente. O próximo programa lê uma seqüência de caracteres de um arquivo de disco 
chamado TESTE.DAT e a ordena. O mesmo programa pode ser usado com todas as 
outras rotinas deste capítulo, bastando para isto mudar o procedimento de ordenação. 
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prograt# OrdenadorJ 

(este programa lera; de um arquivo de disco chamado 'teste.dat'; ate 30 
caracteres; ordenando-os e mostrando o resultado na tela.) 

type 

Dado = char; 

rtatriz_Dados = array C 1 . .80 3 of Dado; 

var 

teste: Matriz_DadosJ 
t;t2: integer; 
arq_teste: file of char j 

procedure Bubble(var item: Matriz_Dados; conta;integer ); 
var 

i;j: integer; 
x: Dado; 
begi n 

Cor i:=2 to conta do 
begin Cor j:=conta downto i do 
iC itemCj-13 > itemCj) then 
beg i n 

x := iteroC j-13; 
itemCj-13 := itemCj); 
i temC j 3 : = x ) 
end; 
end; 
end; 

begi n 

Rs sign<arq_teste, 'teste.dat' ); 

Reset( arq_teste )j • , 

t: =1; 

while not EoC(arq_teste ) do begin 
read<arq_teste, testeCtl): 
t:=t+l; 
end; 

t:-t-2; (retira o controi-z no Cinal do arquivo) 

Bubble<teste,t ); C ordena a matriz) 

Cor t2:=l to t do write< testeCt23 ); 

Wr i teLn; 

end. 


Para ilustrar melhor o modo de funcionamento do Bubble Sort, aqui estão as passagens 
necessárias para ordenar a seqüência dcab: 


inicio 

d 

2 ) 

3 ) 


dcab 

adcb 

abdc 

abcd 


Para se analisar uma rotina de ordenação é necessário determinar quantas 
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comparações e permutações serão feitas por tal rotina em seu melhor caso, em seu 
pior caso e em seu caso médio. No Bubble Sort o número de comparações será s empre^ 
número especificado em conta, esteja a lista iniciaimente ordenada ou não. Isto é, o 
Bubble Sort realizará sempre {r^-n)í2 comparações, onde n é o número de elementos a 
serem ordenados. (Esta formula é o produto da multiplicação do número de execuções do 
loop externo (tí-1) pelo número de execuções do loop interno (n/2).) 

O número de permutações será 0 no melhor caso (uma lista já ordenada), 
3lA{rr-n) no caso médio e 3/2(rr—n) no pior caso. Está além do objetivo deste livro 
demonstrar tais fórmulas, mas através delas você pode notar que, quanto mais desordenada 
estiver a lista, mais o número de elementos fora de ordem se aproxima do número de 
comparações a serem feitas (além disto, o Bubble Sort fará três permutações para cada 
elemento fora de ordem). O Bubble Sort se enquadra no grupo dos chamados algoritmos 
exponenciais , pois seu tempo de execução é proporcional ao quadrado do número de 
elementos da lista. Como o tempo de execução se relaciona diretamente ao número de 
comparações e permutações a serem realizadas, um Bubble Sort é péssimo para lidar com 
grandes listas. 

Mesmo ignorando o tempo necessário para permutar elementos fora de ordem, e 
se cada comparação durar, por exemplo, 0,001 segundo, a ordenação de 10 elementos 
requererá aproximadamente 0,05 segundo, a ordenação de 100 elementos levará 5 
segundos e a ordenação de 1000 elementos será feita em 500 segundos. O tempo 
necessário para ordenar 100.000 elementos (o tamanho de uma pequena lista telefônica) 
será de aproximadamente 5.000.000 de segundos, ou 1.400 horas (mais de 2 meses de 
ordenação contínua!). O gráfico da Figura 2-1 mostra a relação entre o número de 
elementos da matriz e o tempo de execução do Bubble Sort, 

Algumas mudanças podem ser feitas no Bubble Sort para acelerar seu tempo de 
execução (e melhorar um pouco seu conceito entre os programadores). Por exemplo, o 
Bubble Sort , listado anteriormente, possui uma peculiaridade: um elemento cuja posição 
correta for no início da matriz (como o a do exemplo dcba) irá para sua posição em um 
movimento, enquanto um elemento cuja posição correta for no final da matriz (como o d 
no mesmo exemplo) se deslocará lentamente até sua posição. Se, em vez de ler a matriz 
sempre no mesmo sentido, o programa inverter o sentido a cada passagem, elementos cuja 
posição inicial for muito distante da posição correta irão mais rapidamente para seu lugar. 
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Figura 2-1. Tempo de execução versus número de registros numa ordenação'de tempo 
quadrático (n 2 ). 

Esta versão do Bubble Sort é chamada Shaker Sort por causa de seu movimento vibratório 
(de to shake = vibrar) ao longo da matriz: 

procedure ShakerCvar ite»: Matr i z_Dados ) conta:íntaser ); 

testa e' una versão welhorada do Biibble5ort} 

var 

j , K , 1,r í inteserJ 
x: DadD j 
beg i n 

1:=2; r:=conta; k:=conta; 
repeat 

for j:= r downto 1 do 

if itewtj-13 > itentjJ then 
beg i n 

x: = ite»C j-13j 
itewt j-13: = ite»[ j 3 ; 
itewt j 3:=x; 
k : = j j 

end; 

1:=k+l; 

for j:=1 to r do 

if ite»Cj-13 > itewCj] then 
be 9 i n 
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x:=ite«C j-13; 
iteiiC j-1 3:=ite*L j 3 j 
i temC j 3 : = x; 

K : =j ; 
end ) 

r : =K — 1 j 

unt i 1 1 >r 
end; l ShaKerSort] 

Apesar de representar um avanço em relação ao Bubble Sort original, o Shaker 
Sort também não é recomendável, pois seu tempo de execução ainda é exponencial. O 
número de comparações não mudou e o número de permutações foi apenas levemente 
reduzido. 

* 

ORDENAÇÃO POR SELEÇÃO Numa ordenação por seleção , o elemento de valor 
mais baixo da matriz é escolhido e permutado com o primeiro elemento. Dos elementos 
restantes, o de valor mais baixo é escolhido e permutado com o segundo elemento da 
matriz, e assim por diante, até que a matriz esteja ordenada. Se, por exemplo, a matriz 
bdac for ordenada por seleção as passagens serão: 

início badc 

d «fefr-âj ,éic 

2) abdc 

3) abcd 


Uma forma simples de ordenação por seleção é mostrada a seguir 


procedure Selecao ( var itew: Matriz_Dados; contaiinteger); 
var 

i,j,K: integer; 
x: Dado; 

beg i n 

for i:=l to conta-1 do 
beg i n 

K í = i ; 

x:=ite»ri3; 

for j:=i+l to conta do Cacha o nenor elewento) 
if ite»CJ 3 < x then 
begi n 
* s = j; 

x : =ite*C j 3; 
endj 

i te»C K 3: = i te»C i 3; 
ite»Li3:=x; 
end; 

end; Cordenacao por selecap) 
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Como no Bubble Sort, o loop externo é executado n-\ vezes e o loop interno é executado 
n/2 vezes, o que significa um total de {n?-ri)/2 comparações, tomando também este 
método impróprio para listas grandes. O número de permutações no melhor caso é 3(^-1) 
e no pior (aproximando-se do número de comparações). 

^ O número de permutações no caso médio é igual a rc(ln n+y), onde v é a 
constante de Euler (aproximadamente 0,577216). Isto quer dizer que o número de 
permutações num caso médio de ordenação por seleção é bem menor que no Bubble Sort 
(apesar do número de comparações ser idêntico). 


ORDENAÇÃO POR INSERÇÃO Este é o último dos algoritmos simples de 
ordenação que veremos. O algoritmo de ordenação por inserção começa ordenando os dois 
primeiros elementos da matriz. O terceiro elemento é, então, colocado em sua posição 
correta em relação aos dois primeiros. O quarto elemento é inserido na lista de três 
elementos, e o processo continua até que todos os elementos estejam em sua posição 
correta. Por exemplo, na matriz dcab a ordenação por inserção funcionaria assim: 

início dcab 

1) cdab 

2) acdb 

3) abcd 

O programa seguinte é uma versão da ordenação por inserção: 

procedure Insercao< var iteu: Matr i z_Dados; conta: integer); 
var 

i,j: integer; 
x: Dado; 
beg i n 

for i: = 2 to conta do 
beg i n 

x : = i tewC i 3; 
j : = i -1; 

while (x < ite»Cj3) and (j > 0) do 
beg i n 

itew£j + l]:=iteTnCj 3; 

J:=j-i; 
end; 

_i tewt j+13:=x; 
end j 

end; Cordenacao por inserção) 

Ao contrário do que ocorre no Bubble Sort e na ordenação por sdeçáo, aqui, o 
número de comparações efetuadas depende do estado inicial da lista. Se a lista estiver na 
ordem correta, serão feitas n -1 comparações. Se a lista estiver na ordem inversa, o número 
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de comparações será de (rc 2 + ri)t 2-1, sendo a média dos dois numeros igual a 
(« 2 +n-2)/4. 

Para as permutações, os números são os seguintes: 

Melhor caso: 2(/z-l) 

Caso médio: (t^+^IO)^ 

Pior caso: {j? 

Ou seja, o numero do pior caso é tão ruim quanto o do Bubble Sort ou o da ordenação por 
seleção, e o número do caso médio é pouca coisa melhor. Mas a ordenação por inserção 
apresenta duas vantagens. Primeiro, o algoritmo tem um comportamento natural, 
trabalhando menos em listas já ordenadas e mais em listas invertidas. Isto torna tal método 
útil para ser usado em listas que estejam quase em ordem. Além disto, a ordem de chaves 
iguais não muda, isto é, se uma lista com duas chaves for ordenada pelo método de 
inserção, ao final ela estará ordenada pelas duas chaves. 

Apesar do número de comparações tornar este algoritmo útil para certos 
conjuntos de dados, o fato da matriz ser constantemente deslocada faz com que o número 
de movimentos seja significativo (ainda assim, é importante lembrar que a ordenação 
por inserção se comporta- naturalmente). 


ORDENAÇÕES APERFEIÇOADAS 

Cada um dos algoritmos descritos incorre no erro fatal de ter um tempo de execução 
exponencial. Para grandes quantidades de dados, estes procedimentos seriam vagarosos 
- de um certo momento em diante vagarosos demais para serem usados. Qualquer 
programador conhece uma ou mais variações da história de terror chamada “a ordenação 
que durou três dias”. Infelizmente, estas histórias são, muitas vezes, verdadeiras. 

Quando uma ordenação demora muito tempo, o erro pode estar no algoritmo 
usado. A primeira resposta quase sempre será “vamos escrever isto em assembty ”. Mas, se 
o algoritmo for ruim, aumentar a velocidade não tornará a ordenação muito mais rápida 
(não importando qual linguagem seja usada). Lembre-se: se uma rotina tem um tempo de 
execução exponencial, o aumento da velocidade da linguagem ou do computador usados 
causará apenas uma pequena melhoria (o gráfico da Figura 2-1 será levemente deslocado 
para a direita, mas a curva ainda será a mesma). Tenha em mente que se um programa não 
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é rápido o bastante escrito em Turbo Pascal, ele não será rápido o bastante escrito em 
assembly. A solução é usar um programa melhor. 

Nesta seção serão discutidos dois excelentes algoritmos de ordenação, o Shell 
Sort e o QuickSort (este último é geralmente considerado a melhor rotina de ordenação 
hoje disponível). Estes programas realizam uma ordenação, literalmente, num piscar de 
olhos. 


O SHELL SORT O Shell Sort foi batizado com o nome de seu inventor, D.L. Shell. 
Entretanto, o nome pode também ter sido inspirado no próprio método de operação do 
algoritmo, que faz lembrar conchas ( shells ) apoiadas umas sobre as outras. 

O método usado por este algoritmo é derivado da ordenação por inserção, e se 
baseia na redução de intervalos. A Figura 2-2 mostra o diagrama de um Shell Sort 
ordenando a matriz fdacbe. Primeiro são ordenados todos os elementos a três posições de 
distância. Em seguida, os elementos a duas posições de distância são ordenados. 
Finalmente, são ordenados os elementos adjacentes. 



Figura 2-2 O Shell SorL 

procedure ShelK var ite» : ttatr i z_Dados ,* conta: intcger); 
const 

t = 5; 

var 

i>jfínteger; 
h: arrayCl..t3 of integer; 
x: Dado; 
begin 

hClDs*9; hC23:=5; hC3D:=3; hC43:*3i KC53:=l; 
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for »:=1 to t do 
begin 

K : =hC » 
s: S “K ) 

for i:=Krl to conta do 
begin 

x : = i tem i 
js=i-tj 
if s = 0 tKen 
begin 

s:5 
s:=s+l; 
i te*[ s]:=x} 
end; 

while <x < itenCjD) and (j >0) and (j (= conta) do 
begin 

ite»C j+K 3:=itemCj3} 
j :=j~K; 
end j 

ite»Cj+K3:=x; 
end; 
end; 

end; Cordenacao de Shell} 

Apesar disto não ser óbvio, este método ordena a matriz, e o faz de maneira 
eficiente. O algoritmo é eficiente porque cada passagem da ordenação ou envolve poúeos 
elementos ou envolve elementos que já estão numa ordem razoável. Assim, cada passagem 
aumenta a ordenação da lista. 

A sequência de intervalos usados pode ser mudada, desde que o último intervalo 
seja 1. Por exemplo, a seqüência 9, 5, 3, 1 funciona bem (é esta a seqüência usada no 
Shell Sort mostrado acima). Evite, porém, usar seqüências que envolvam múltiplos de 2, 
pois tais seqüências, devido a razões matemáticas complexas, reduzem a eficiência do 
algoritmo (mas a ordenação ocorrerá mesmo que você as use). 

O loop interno while possui duas condições de teste. O x<item[j] é uma 
comparação necessária ao processo de ordenação. Já os testes j>0 e j<=conta evitam que 
a ordenação ultrapasse as fronteiras da matriz. Estes testes de limites atrapalham 
consideravelmente a performance do Shell Sort. Por este motivo, versões um pouco 
diferentes do Shell Sort utilizam elementos especiais da matriz, chamados sentinelas. Os 
sentinelas não fazem parte da informação a ser ordenada, possuindo valores especiais que 
indicam o menor e o maior elementos possíveis da matriz. Deste modo, a verificação de 
limites se toma desnecessária. No entanto, o uso de sentinelas exige um conhecimento 
específico dos dados que estão sendo ordenados, limitando a generalidade do procedi¬ 
mento de ordenação. 

O tempo de execução do Shell Sort é proporcional a n 1 - 2 para a ordenação de 
n elementos. Isto representa um avanço significativo em relação aos métodos vistos nas 
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seções anteriores, todos eles proporcionais a n 2 . A Figura 2-3 mostra as curvas n 2 e n 1 * 2 , 
lado a lado. Mas antes de decidir usar o Shell Sort , veja o QuickSort, que é ainda melhor. 



= n 1 


Figura 2-3 As curvas de n 2 e n 1 - 2 . 


O QUICKSORT O QuickSort (ordenador rápido), criado e batizado por C.A.R. Hoare, 
é tido como o melhor algoritmo de ordenação atualmente disponível. Ele se baseia no 
método de ordenação por permutação, o que é uma surpresa, considerando o péssimo 
desempenho da versão mais simples de ordenação por permutação, o Bubble Sort. 

O QuickSort se utiliza de partições para ordenar a matriz. O algoritmo seleciona 
um valor, chamado comparando. Ele, então, divide a matriz em duas partes, com todos os 
elementos maiores ou iguais ao valor de comparação de um lado e todos os elementos 
menores que o valor de comparação de outro. Este processo se repete em cada uma das 
duas partes resultantes, até que a matriz esteja ordenada. Por exemplo, dada a matriz 
fedacb, e usando d como primeiro valor de comparação, a primeira passagem do 
QuickSort rearranjaria a matriz do seguinte modo: 






início 

D 

2 ) 


fedacb 

bcadef 

abcdef 
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O processo se repete sobre cada uma das partes restantes, bca e def. 

O método usado é recursivo por natureza. Na verdade, as implementações mais 
elegantes do QuickSort são algoritmos recursivos. 

A seleção do elemento de comparação pode ser feita de dois modos. O elemento 
pode ser escolhido ao acaso ou pode-se selecionar o elemento médio de um pequeno 
subconjunto da matriz. Para otimizar a ordenação, o melhor seria selecionar o elemento de 
valor médio entre todos os elementos da matriz. Isto, entretanto, não é possível na maioria 
dos casos (mas mesmo no pior caso, aquele no qual o valor escolhido está numa das 
extremidades, o QuickSort trabalhará bem). 

A versão do QuickSort mostrada aqui seleciona sempre o elemento central da 
matriz. Apesar desta não ser sempre uma boa escolha, ela é rápida e simples, e a 
ordenação funcionará corretamente. 

procedure QuicKSort ( var itew: Matrii_Dados; conta: integer ); 
procedure qs (ljr: integer; var it: Matriz_Dados ); 
var 

i , j: integer; 
x,y: Dado; 
begi n 

i : =1; j:=r; 

x : = iU< 1+r ) div 2 3; 

repeat 

while itti3 < x do i:=i+i; 
while x < itC j 3 do 
if i <= j then 
begin 

y : = i tC i 3; 
itC i 3: = i tr j 3 ; 

itc j 3:®y; 

Í:=i+l; 
end; 

until i > jj 

if 1 < j then qs< 1 } j, i t ); 
if 1 < r then qs(i>r,it)> 
end; 

beg i n 

qs< 1, conta,ite*); 
end; CQuicKSort] 


Aqui o procedimento QuickSort chama o procedimento de ordenação qs. Isto 
permite que a ligação entre item e conta seja mantida. 

Pode-se assumir que o número de comparações realizadas pelo QuickSort é dado 
pela fórmula n log n e que o número de permutações seja de aproximadamente nI6 log n. 
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Tais valores são significativamente melhores que os de qualquer dos outros métodos de 
ordenação vistos até aqui. 

A equação N = a x pode ser escrita x = log// 

Assim, se existirem 100 elementos para serem ordenados, o QuickSort fará, em 
média, 200 comparações (pois log 100 é 2). Se comparado às 990 comparações requeridas 
em média pelo Bubble Sort , tal número é muito bom. Entretanto existe um detalhe que po¬ 
de tomar o QuickSort um slowsort (ordenador lento). Se o elemento de comparação esco¬ 
lhido para cada partição for sempre o maior valor daquela parte da matriz, o tempo de exe¬ 
cução do QuickSort será exponencial. Felizmente, este é um caso muito raro. 

Você deve tomar cuidado ao escolher o método de seleção do elemento de 
comparação. Na maior parte das vezes, a própria natureza da informação a ser ordenada 
determinará o método a ser usado. Em grandes malas diretas, nas quais a ordenação em 
geral usa o CEP como chave, a seleção é simples. Como os CEPs têm uma distribuição 
ampla, um procedimento algébrico trivial pode produzir o elemento adequado. Em alguns 
bancos de,dados; porém, as chaves de ordenação podem estar tão próximas que a seleção 
aleatória poderá ser o melhor método disponível. Um método muito comum e eficiente é 
tomar três elementos quaisquer de uma partição, escolhendo, entre estes, o elemento 
médio. 


ORDENANDO OUTROS TIPOS DE INFORMAÇÃO 

Até aqui só tratamos da ordenação de matrizes de caracteres. Como já foi mencionado, no 
início deste capítulo, matrizes contendo qualquer tipo de dado podem ser ordenadas, 
bastando para isto mudar a declaração de tipo de MatrizJ)ados. Normalmente, 
entretanto, os dados a serem ordenados são complexos, como seqüências ou grupos de 
informação, registros (records), por exemplo. Ao adaptar os algoritmos de ordenação a 
outras estruturas de dados, podem ser necessárias mudanças na rotina de comparação, na 
de permutação, ou em ambas. O algoritmo básico, entretanto, permanecerá sempre o 
mesmo. 


Como o QuickSort é a melhor entre as rotinas descritas neste capítulo, ele será 
usado nos exemplos subseqüentes. No entanto, as mesmas técnicas se aplicam a qualquer 
outro dos algoritmos vistos. 


A ORDENAÇÃO DE SEQÜÊNCIAS DE CARACTERES O modo mais simples de 
ordenar seqüências de caracteres é criar uma matriz com elas, usando para isto o tipo 
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string do Turbo Pascal. Isto permite fácil indexação e permutação, além de manter 
inalterado o algoritmo básico QuickSort. A versão a seguir ordena seqüências de 
caracteres em ordem alfabética. 

type 

Dado = st,ringC 303; 

rtatriz_Dados = arrayC 1..BO3 □£ Dado; 

Procedure QsStnngíva r itew: Matriz_Dados; conta: integer); 
procedure QS<l,r: iirteger; var i t: Matriz_Dados )J 
var 

i , j : ÍTite9er ; 
x y y: Dado; 
begi n 

i :=l; 

x : = it,C( 1+r ) di v 2 3; 
repeat 

while itt i 3 < x do i:=i+lj 
while x < itCj3 do 
i£ i < = j then 
begin 

y : = i tC i 3 ; 
i tL i 3: = i tC j 3; 
i U j 3 : =y ; 
i:=i+1J 
end) 

uTit i li > j; 

if 1 < j then qs(l ; j,it>; 
if 1 < r then qs(i,r,it); 
end; 

beg i n 

Q5( conta , i teu# ); 
end; CQsString} 


Note que apenas a declaração de tipo de Matriz_Dados foi mudada para transformar a 
ordenação de caracteres em ordenação de seqüências de caracteres. Isto é possível devido 
à excelente integração dos tipos de string do Pascal, feita pela Borland. No Pascal padrão, 
ordenar seqüências exigiria uma rotina muito maior. 

A comparação de seqüências toma mais tempo que a comparação de caracteres, 
pois mais elementos devem ser testados em cada caso. 


A ORDENAÇÃO DE REGISTROS A maior parte dos programas de aplicação que 
requerem uma ordenação precisa ter um grupo de dados previamente ordenados. Uma mala 
direta é um exemplo excelente, pois nome, rua, cidade, Estado e CEP estão unidos. 
Quando este bloco unitário de informação é ordenado, qualquer que seja a chave usada, 
todo o bloco será movido se houver uma permutação. Para entender este processo, crie 
você um registro (record) para conter esta informação. Usando o endereço como exemplo, 
o registro adequado para manter a informação, no nosso caso, seria o seguinte: 
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type 

endereço = recard 

nome: stringC30]; 
rua : str i ngC 40 3; 
cidade: string[20]; 
estada: stringC23; 
cep: str 1 ngC 5 3 j 


Após definir endereço, a declaração de tipo de Dado deve ser mudada: 

Dado = endereço; 


Além disto, a rotina de comparação do QuickSort deve ser mudada para adequá-la ao 
campo a ser ordenado. Na versão seguinte, o campo usado é o nome. Isto quer dizer que a 
mala direta será ordenada em ordem alfabética pelo nome: 

procedure QsRegistro (va r item: Matriz_Dados; conta: integer); 
procedure qs (l,r :. integer; var it: Matr i z_Dados ); 
var 

i ) j: integer; 
x f y: Dado; 
beg i n 

i :=1 ; j:=rj 

x : = i tC ( 1 + r ) div 21; 

repeat 

while itCiü.nowe < x.nome do i:=i+l; 
while x.nowe < itCjD.nowe do 
i £ i < = j then 
begi n 

y : = i tt i ]; 
itCi3: = it[j3; 
i tC j 1 1 = y ; 
i : = i +1 j j : = j -1; 
end; 

unt i 1 i > j > 

if 1 < j then qs< ljj, it )j 
if 1 < r then qs( i»r,it )í 
end; 

beg i n 

qs( 1;conta,item ); 
end; tQsRegistro] 


ORDENANDO ARQUIVOS DE DISCO 


Existem dois tipos de arquivos de disco, os seqüenciais e os de acesso aleatório. Se o 
arquivo for pequeno o bastante para ser carregado na memória do computador, isto tomará 
a ordenação mais rápida. Entretanto, a maior parte dos arquivos é grande demais para ser 
ordenada diretamente na memória, requerendo técnicas especiais. 
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A ORDENAÇÃO DE ARQUIVOS DE ACESSO ALEATÓRIO Usados pela 
maioria dos programas de aplicação para microcomputadores, os arquivos de acesso 
aleatório apresentam duas grandes vantagens sobre os arquivos seqüenciais. Além da 
informação neles contida poder ser modificada sem que toda a lista seja novamente 
copiada, eles podem ser tratados como uma grande matriz gravada no disco, simplificando 
enormemente o processo de ordenação. 

Com arquivos de acesso aleatório, o QuickSort básico, com apenas algumas 
modificações, pode ser usado para buscar registros diferentes no disco, como se você 
estivesse indexando uma matriz. Ao contrário do que ocorre em arquivos seqüenciais, 
aqui, o disco não precisa ter espaço para os arquivos já ordenados e os ainda 
não-ordenados, durante o processo de ordenação. 

Cada situação de ordenação é particular, dependendo do tipo exato de estrutura 
a ser ordenado e da chave usada. Porém, o conceito geral de ordenação de arquivos de 
acesso aleatório pode ser compreendido através do programa a seguir, que ordena o 
registro de mala direta endereço, definido no exemplo anterior. (O programa assume que 
o número de elementos é 80. Numa aplicação real, o contador de registros deve ser 
mantido de modo dinâmico.) 

prosrai QrdMalaDireta; 
type 

endereço - record 

noie s stringC30]; 
rua : stringC403j 
cidade : stringC20]; 
estado : stringt23; 
cep : stringC 5 3; 


end; 

strBO = stringC80]j 
Dado = endereLo) 

Matriz_0ados = arrayC1..803 o£ Dado; 
arq_end = tile o£ endereço; 


var 

testes DadoJ 
t,t2: i nteger ; 

arq_teste: file o£ endereço; 

function Localiza (var £pí arq_end; i: integer); strSO; 
var 

t: endereço; 
begin 

i;= i-1; 

5eeK< £p> i >; 

Read< Cp > t); 

Localiza:- t.noieí 
end; CLocaliza} 
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procedure QsRand<var £p:arq_endj conta: inteser); 
procedure QSCljr: integer ) j 
var 

inteser; 
x,y,z: Dado; 
beg i n 

i:=lj j:=r; 
s:=( 1+r ) div 2; 

5eeK< f p } s-1 ); 

Read( f p,x )i 
repeat 

while Localizai fp, i ) < x.nome do i:=i+lj 
while x.nawe < Local i za( f p > j ) do 
if i <= j then 
begin 

5eeK< £ p f i-1 )J Read(fp,y>; 

5eeK<£p,j-1 ); Read(£p,z); 

SeeK ( f p , j-1 ); Write(£p>y); 

SeeK< f p, i-1 ); Writeí £p, z >; 
i:= i+1; j:=j-1 j 
end; 

until i > j ; 
i£ 1 < j then Q5< 1 , j ); 
i£ 1 < r then Q5(i»r)j 
end; 

beg i n 

Q5C 1, conta ); 
end; CQsRand3 

beg i n 

fissigni arq_tBStB; 'teste.dat' ); 

Reset(arq_te5te); 
t :=l; 

while not Eof( arq_tes te ) do begin 
Read( arq_tes te ,teste ); 
t:=t+1; 
end; 
t :=t-l; 

OsRandi arq_teste>t ); 

end. 


A função Localiza foi incluída para manter inalterada a parte essencial do 
QuickSort. Localiza traz, de um registro no disco, a sequência nome. Como arquivos de 
disco são numerados a partir de 0, é necessário subtrair 1 constantemente dos argumentos 
de Localiza e Seek. 


A ORDENAÇÃO DE ARQUIVOS SEQÜENCIAIS Ao contrário dos arquivos de 
acesso aleatório, arquivos sequenciais não usam registro de tamanho fixo, sendo comum 
armazená-los de tal modo que o acesso aleatório seja difícil. Arquivos seqüenciais são 
utilizados por aplicações que necessitem de registros de tamanho variável ou métodos de 
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armazenamento sequenciais por natureza. Por exemplo, a maioria dos arquivos de texto é 
seqüencial. 

Não se pode tratar um arquivo seqüencial como uma matriz, pois não há como 
ter acesso a um elemento qualquer de tal arquivo. Não há como conseguir acesso rápido a 
um registro qualquer de um arquivo seqüencial gravado, por exemplo, em fita. Por esta 
razão, seria difícil aplicar a arquivos seqüenciais os algoritmos de ordenação de matrizes 
apresentados até aqui. 

Existem dois meios de ordenar um arquivo seqüencial. O primeiro consiste em 
carregar o arquivo na memória do computador e então aplicar qualquer dos algoritmos de 
ordenação já vistos. Este é um método rápido, mas o tamanho do arquivo a ser ordenado 
fica limitado pelo tamanho da memória da máquina. 

O segundo método é chamado Merge Sort. O Merge Sort divide o arquivo a ser 
ordenado em dois arquivos do mesmo tamanho. O programa, então, lê um elemento de 
cada arquivo, ordena este par, e grava os dois elementos num terceiro arquivo. Quando, 
neste terceiro arquivo, estiverem gravados todos os elementos, ele é dividido em dois 
arquivos do mesmo tamanho, e o processo se repete até que o arquivo esteja ordenado. 
Este Merge Sort requer, portanto, que três arquivos estejam ativos ao mesmo tempo. 

Para entenda- como o Merge Sort trabalha, observe a seguinte seqüência: 

14386725 

O Merge Sort divide a seqüência a ser produzida 

1438 

6725 


ordena as duas partes 


16-47-23-58 


divide novamente 


16-47 

23-58 
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0 merge seguinte produz 


1236-4578 


a divisão final é 

1236 
457 8 

com o resultado 


12345678 


No Merge Sort> cada arquivo é lido log 2 n, onde n é o número de elementos a 
serem ordenados. 

A seguir, é dada uma versão simples do Merge Sort. Ela assume que o arquivo 
inicial tem o dobro de seu tamanho real, de modo a necessitar de apenas um arquivo ativo. 
O método é o mesmo. Neste exemplo, tipo_arq é definido como um arquivo de tipo 
MatrizJDados. 


Function Localizai var arq: tipo_arq; i:integer ) : Dado; 

var 

t: Dado; 
begi n 

SeeKi arq,i-1); 

Readi arq,t ); 

Localiz a:=t; 
end; í Localiza 3 

procedure MergeSorK var arq: tipo_arq; conta: integer); 
var 

i í j i K , 1,t,h,»,p,q,r : integer; 
dl,d2: Dado; 
up: boolean; 

beg i n 

up:=TRUE; 

P : = 1; 

repeat 

h:=l; »:=conta; 
if up then 
beg i n 

i:=i; j:=conta; K:=conta+l; l:=2*canta; 
end else 
begi n 

K:=l; l:=conta; i:=conta+l; j:=2*conta; 
end; 
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repeat 

i£ i» >= p then q:=p else q:=w; 

i£ * >= p then r:=p else r;=ij 
m í =»-r; 

while < q < > 0 ) and < r < > 0) do 
begi n 

i£ Localiza<arq,i) < Localiza< arq,j ) 
beg i n 

5eeK< arq ; i-1 )j Read( arq y dZ ); 
SeeK < ar q , K-1 >; Write< arq,d2 ) ; 
K:=K+h; i:=i+l; q:=q-l; 

end else 
begin 

SeeK( arq, j-1 ); Readí arq , d2 ),’ 
SeeX(arq,K-1 )} Write< arq,d2 ); 
K:= K +h í r : = r -1 j 

end ) 
end; 

while r < > 0 do 
begin 

SeeK(arq,j-1); Read< arq, d2 ); 
SeeK<arq,K-l); Wr i te( arq , d2 ); 
K:=K+h; r:=r-l; 

end; 

while q < > 0 do 
begin 

SeeK<arq,i-1 ); Read<arq, d2 ); 
5eeK< arq, K-1 ); Wr i te( arq, d2 ); 
X:=K+h; i:=i+l; q:=q-l; 

end; 

hs*-l; t:=K; 

K:=l; 

1 í = t; 

until »=0; 
api=not up; 
p:=p*2; 

unt i1 p >conta; 
i£ not up then 

for i:=1 to conta do 
begin 

SeeK< arq,i-i+conta); Read<arq,d2); 
5eeX<arq,i-1 ); Write<arq,d2 ) ; 
end, 

end; 


BUSCA DE INFORMAÇÃO 


then 


Bancos de dados existem para que, de tempos em tempos, o usuário possa localizar e 
utilizar uma certa informação, desde que a chave seja conhecida. Só existem dois métodos 
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de busca de informação, um para arquivos ou matrizes já ordenados e outro para arquivos 
ou matrizes não-ordenados. 


MÉTODOS DE BUSCA 

Achar um dado elemento numa matriz não-ordenada requer uma busca sequencial 
começando do primeiro elemento e parando quando o elemento procurado for encontrado 
ou quando a matriz terminar. Com dados previamente ordenados, uma busca binária pode 
ser empregada, resultando em grande aumento na velocidade do processo. 


A BUSCA SEQÜENCIAL A busca seqüencial é fácil de ser programada. A seguinte 
função percorre uma matriz de tamanho conhecido até que um elemento com a chave 
procurada seja encontrado. 

function Bu5ca_5eq(i te» : Matrii_Dados ) conta: integerj 

chave: Dado) : integerj 

var 

t: integerj 
begir» 
t: = 1 j 

while(chave <> itewCtD) and (t <= conta) t:=tTÍ; 
if t ) conta ther Busca_Seq:=0j 
else Busca_5eq:=tj 
endj TBu5ca_5eq} 


Esta função dá como resultado o número do elemento procurado, ou 0, se tal 
elemento não existir. 

Uma busca seqüencial testará, em média, ní 2 elementos. No melhor dos casos, 
apenas 1 elemento será testado, e no pior, n. Se a informação estiver gravada em disco, o 
tempo necessário poderá ser longo, mas este é o único método de busca disponível para 
dados não-ordenados. 


A BUSCA BINARIA Se os dados entre os quais está aquele elemento a ser encontrado 
estiverem ordenados, então um método melhor, chamado busca binária , poderá ser usado. 
Este método é uma aplicação da máxima “divide e conquista'’. Ele primeiro testa o 
elemento central; se a chave deste elemento for maior que a chave procurada, ele então 
testa o elemento central da primeira metade. Caso contrário, ele testa o elemento central da 
segunda metade. O processo se repete até que o elemento procurado seja encontrado, ou 
até que não existam mais elementos para serem testados. 



Ordenação e busca 


35 


Por exemplo, para encontrar o número 4 na matriz 123456789, a busca binária 
testará primeiro o elemento central, isto é, o 5. Como este elemento é maior que 4, a busca 
continuará na primeira metade, 

12345 


Aqui, o elemento central é 3. Como este é menor que 4, a busca continua com 
45 


Desta vez, o elemento procurado é encontrado. 

Na busca binária, o número de comparações no pior caso é log 2 rc. Nos casos 
médios, o número é um pouco melhor. No melhor caso, o número, naturalmente, é 1. 

O programa a seguir realiza uma busca binária em uma matriz de caracteres. Ele 
pode ser usado com qualquer outra estrutura de dados, bastando, para isto, modificar a 
rotina de comparação, e a definição de tipo em Dado: 

function Busca_Bin( ite»; Matrii_Dados j conta: integerj 
chave: Dado) : inteser ; 

var 

ienor .1 «aior, medio: integer; 
encontrou: boolean; 
beg i n 

menor:=l; »aior:=contaj 
encontrou:=conta; 

whiie (menor <= maior) and ( not encontrou) do 
beg i n 

medio:=(menor + maior) div 2; 
if chave < itemEmedio] then maior:=medio-l 
else it chave ) itemEmedio) then menor:=med 1 o+l 
else encontrou:=true; [encontrou } 

endj 

i£ encontrou then Busca_Bin:=medi d 
else Busca_Bin : =0; Cnao encontrou 3 
end; {Busca_Bin 3 

O capítulo seguinte aborda os diferentes métodos de armazenamento e 
recuperação de dados, os quais muitas vezes tomam a ordenação e a busca tarefas muito 
mais simples. 




Programas consistem em algoritmos e estruturas de dados. Um. bom programa é uma 
mistura de ambos. A escolha e implementação de uma estrutura de dados é tão importante 
como as rotinas que os manipulam. A maneira como a informação é organizada e acessada 
é normalmente determinada pela natureza do problema. Portanto, como programador, você 
deve ter na sua “cartola” os métodos certos de armazenamento e recuperação para cada 
situação. 

A representação de dados no computador é construída “de baixo para cima”, 
começando com os tipos de dados básicos como char, integer e real. No nível seguinte 
estão as matrizes, que são coleções de tipos de dados organizados. Em seguida, estão os 
registros, que são dados de diferentes tipos, acessados sob um mesmo nome. 
Transcendendo estes aspectos físicos dos dados, o nível final concentra-se na 
determinação da forma como os dados serão armazenados e recuperados . Basicamente, os 
dados estão ligados às “máquinas de dados” que controlam o modo como seu programa 
acessa as informações. Existem quatro dessas máquinas: 


-Filas 

- Pilhas 

- Listas encadeadas 

- Árvores binárias 


Cada método fornece solução para um conjunto de problemas; cada um é essencialmente 
um “dispositivo” que executa uma determinada operação de armazenamento e recuperação 
de uma determinada informação solicitada. Os métodos têm duas operações em comum: 
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armazenar um item e recuperar um item no qual o item é uma unidade informacional. Este 
capítulo mostra como desenvolver esses métodos para uso nos seus próprios programas. 


FILAS 


Uma fila é uma lista linear de informação acessada na ordem “primeiro-dentro primeiro- 
fora” (first-in jirst-out , algumas vezes chamada FIFO). O primeiro item colocado na 
fila será o primeiro a ser recuperado, o segundo item será o segundo a ser recuperado e 
assim por diante. Esta ordem é o único modo de armazenagem e recuperação possível na 
fila; ela não permite acesso aleatório de nenhum item específico. 

As filas são comuns na vida diária. Por exemplo, uma seqüência de pessoas num 
banco ou lanchonete é uma fila - exceto quando os fregueses resolvem furá-la. Para 
visualizar como funciona a fila, considere as rotinas Guarda e Pega. Guarda coloca um 
item no fim da fila, e Pega recupera o primeiro item da fila, retomando seu valor. A 
Figura 3-1 mostra o efeito de uma série dessas operações. Tenha em mente que uma 
operação de recuperação remove um item da fila e, se esse item não estiver armazenado 
em algum outro lugar, ele será efetivamente destruído - o item não poderá ser acessado de 
novo. 


Ação 

Conteúdo da fila 

Guarda(A) 

A 

Guarda(B) 

A B 

Guarda(C) 

ABC 

Pega retoma A 

B C 

Guarda(D) 

B CD 

Pega retoma B 

C D 

Pega retoma C 

D 


Figura 3-1 Uma fila em ação. 

Filas são usadas em muitos tipos de situações de programação, como em 
simulações (discutidas mais tarde no seu próprio capítulo), listas de eventos (como em 
PERT) e buffering de entrada/saída. 
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Como exemplo, considere um programa simples escalador de eventos que 
permita a entrada de uma série de eventos. A medida que cada evento é concitado, ele é 
tirado da lista e é mostrado o seguinte. Você poderia utilizar um programa como este para 
organizar eventos tais como os compromissos de um dia. Para simplificar os exemplos, o 
programa utiliza uma matriz de strings no armazenamento dos eventos. Limitamos o 
numero de eventos em 100 e a descrição de cada um deles em 80 caracteres. Primeiro, há 
o procedimengo Guarda e a função Pega que serão usados no programa. Eles são 
mostrados aqui como as variáveis globais necessárias e as definições de tipo. 

const 

MRXIMO = íoo; 
type 

Tipo_Evento = stringCBO]; 


var 

evento: array[O. .MRXI MO ] o£ Tipo_Evento; 
livre, proximo: integerj 

procedure Guarda( q:Tipo_Evento ); 
begi ti 

if livre=MRXIMG then 

WriteLn< 'Fila lotada. ' ) 
else 
beg i n 

eventoClivre D:=q ; 

1ivre:=1 1 vre+1 ) 
end; 

end; {Guarda } 

f unction Pega : Tipo_Eventoí 
begi n 

iC proxno=livre then 
begin 

WriteLn< 'Nenhum evento na fila.' ); 
Pega í = ''; 
end else 
begi n 

proxino:=proxi»D+l; 

Pega:=eventoC proxino-13; 
end; 

end; l Pega 3 


Estas funções usam três variáveis globais: livre, que armazena o índice das 
posições de armazenamento livres que se seguem; proximo que indica o próximo item a 
ser recuperado, e evento que é a matriz de strings que armazena as informações. Antes 
que o programa possa chamar tanto Guarda quanto Pega, as variáveis livre e proximo 
devem ser inicializadas em zero. 

Neste programa, o procedimento Guarda coloca novos eventos no fim da lista e 
verifica se ela está cheia. Enquanto houver eventos a serem executados é a função Pega 
que as retira da fila. Quando um novo evento estiver escalado, livre é incrementado. 
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Basicamente, proximo “caça” livre através da fila. A Figura 3-2 mostra como este 
processo ocorre na memória, à medida que o programa é executado. Se livre igualar-se a 
proximo, isso significa que não há mais nenhum elemento restante na lista. Tenha em 
mente que apesar da informação armazenada na fila não ser realmente destruída pela 
função Pega, ela nunca mais poderá ser acessada novamente e terá sido efetivamente 
perdida. 
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Figura 3-2 O índice de recuperação caçando o índice de armazenamento. 

Aqui está o programa completo para este escalador de eventos simples. Você 
pode querer ampliá-lo para seu próprio uso. 
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prograii Mini_flgendaj 
const 

MFIXIMO = 100; 
type 

Tipo_Evento = stringCB03; 

var 

evento: arrayC0..MflXIMD ] o£ Tipo_Evento; 
livre, prDxiwo,t: integer; 
feito: boolean; 
car: cKar; 

procedure Guardaiq:Tipo_Evento ); 
beg i n 

if livre=MRXIM0 then 

UriteLni 'Fila lotada. ' ) 
else 
begi n 

eventoClivre3:=q; 

1ivre:=1ivre + 1; 
énd; 

endj CGuarda 3 

function Pega:Tipo_Evento; 
begi n 

if proxi»o=livre then 
begi n 

WriteLni 'Nenhui evento na fila.' ); 
Pega:=''; 
end else 
begi n 

proximo:=proxi»o+l; 
Pega:=eventoCproxÍJ»o-l 3; 
end; 

end; í Pega 3 

procedure Entrada; 
var 

s : stringC 80 3; 


begi n 

repeat 

Write ('Entre evento livre+1, 
Read( s ); 

Wr i teLn; 

if Length< s ) < > 0 then Guardai s ); 
until Length<s)=0; 
end; C Entr ada 3 

procedure Mostra; 
var 

t: integer; 


begi n 

for t:=proxi»o to livre-1 do WriteLn(t, eventoCt]); 

end; C Mostra 3 
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procedure Prox_Co»pro»isso> 
var 

5 :stringC 80 3; 
beg i ti 

s:=Pegaj £le o proxiwo evento} 
if LengtHC 5 ) <> 0 then WnteLn(s); 
end; £Prox^CowproBisso3 

begin £ agenda 3 

for t:=l to MRXIMO do eventoCt3: = ''J (inicializa eventos 3 
livre:=0; praxiioj=0; feito:=FRL5E; 

repeat 

Wr i te( ' Entrar , Mostrar, Prox^Corapr o» i sso , Fie: ' ); 

Read< car ); 

WriteLn; 

case upcase< car ) of 
' E' : Entrada; 

'M': Mostra; 

'P'i Pr ox Cowprowisso; 

'F' : feitos =TRUE; 
end; 

until feito=TRUE; 
end. 


A FILA CIRCULAR 

Na seção anterior, talvez você tenha pensado em um melhoramento para o programa 
MinL-Agenda. Em vez do programa parar quando alcança o limite da matriz que armazena. 
a fila, você pode fazer com que tanto o índice de armazenamento livre como o índice de 
recuperação proximo voltem ao início da matriz. Este método permitiria que um número 
qualquer de dados fosse colocado na fila, desde que os itens também fossem retirados. 
Essa implementação de fila é chamada fila circular pois é utilizada uma matriz armazena- 
dora parecida com um círculo, em vez de uma lista linear. 

Para criar uma fila circular no programa MinLAgenda, você deve mudar os 
subprogramas Guarda e Pega, como mostrado a seguir: 

procedure Guardai q:Tipo_Evento ); 
beg i n 

if livre+l=proxi»o then 

WriteLni 'Fila lotada. ' ) 
else 
begin 

eventoC1ivre 3:=q; 
livre :=1 ivre+1; 

if livre=MRXIMO then livre:=i; (fecha o circulo) 
end; 

end; (Guarda} 
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function Pega:Tipo_Evento; 
begin 

if prox i »ü=MRXIM 0 then proxiino:=l; Cvolta ao inicio) 

i£ proxiwo=livre thsn 

besin 

WriteLnC 'Fin da Fila. ' )j 
Pega: = ' j ' j 
end else 
begin 

proximoí=proxino+1 } 

Pega:=eventot proxiwo-1 3 J 
end j 

end; L Pega ) 


Na verdade, a fila só estará cheia quando tanto o índice de armazenamento 
quanto o de recuperação forem iguais; de outro modo, a fila ainda terá lugar para outro 
evento. Entretanto, isso quer dizer que quando o programa começar, o índice de 
recuperação proximo não poderá ser zerado mas ajustado para MÁXIMO, de modo que a 
primeira chamada de Guarda não produza a mensagem Fila lotada. Note que a fila reterá 
apenas MAXIMO-1 elementos pois proximo e livre devem estar separados sempre por 
um elemento; do contrário, seria impossível saber se a fila está cheia ou vazia. A Figura 
3-3 mostra a matriz usada para versão circular do programa MinLAgenda. O uso mais 
comum para uma fila circular pode ser na operação de sistemas que “retêm” a informação 
lida e escrita em um arquivo de disco ou console ( buffers ). Um outro uso comum ocorre na 
aplicação de programas em tempo-real, nos quais, por exemplo, o usuário pode continuar a 
introduzir dados pelo teclado enquanto o programa executa uma outra tarefa. Muitos 



Figura 3-3 A matriz circular do programa Mini_Agenda. 
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processadores de texto fazem isso quando reformatam um parágrafo ou justificam uma 
linha. Durante um curto intervalo, o que é digitado não é mostrado na tela; este intervalo 
dura até que o programa complete o outro processo no qual ele trabalhava. Para realizar 
isto, o programa de aplicação deve continuar verificando entradas do teclado durante a 
execução do outro processo. Se uma tecla tiver sido digitada, ela será rapidamente 
colocada na fila e o processo continuará. Depois de o processo ter sido completado, os 
caracteres serão recuperados da fila e tratados de maneira normal. 

Para ver como isto pode ser feito com uma fila circular, estude o programa 
simples a seguir, que contém os dois processos. O primeiro processo conta até 32.000. O 
segundo processo coloca caracteres em uma fila circular à medida que eles vão sendo 
digitados, sem ecoá-los na tela, até que seja encontrado um ponto-e-vírgula. Os caracteres 
que você digitar não serão mostrados, pois o primeiro processo será priorizado até que seja 
digitado um ponto-e-vírgula ou até que a contagem termine. Os caracteres serão 
recuperados e impressos. 

prograi Buffer_Tecl ado J 

const 

MRXIHD=10; 

type 

Tipo_Evento= char; 
ress= record 
al: char; 
ah: byte; 

bx, cx; dx, bp, si, di, es, flags: integer 

end; 


var 

evento: array[ 0..MRXI MO 3 of Tipo_Evento; 
livre, praxino, t: integer; 
car: char; 
dos: regs; 

procedure Guardaiq:Tipo_Evento); 
begin 

if livre+l=proxino then 

WriteLn( 7 Fila lotada,') 
else 
begin 

eventoC1ivre 3:=q; 
livre:=livre+l; 

if livre=MRXIMG then livre:=0; {fecha o circulo) 
end; 

end; CGuarda) 

function Pega:Tipo_EveT)to; 
begin 

if proxi*o=MRXIM0 then proxi»o:=0; (volta ao inicio) 

if proxi«o=livre then 

begin 

WriteLn; 
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WriteLní 'Fiw da Fila. ' ); 

Pega:='í'J 
end else 
begin 

ffroxi vo: =proxi no+1; 

Pega: =eventoC proxi wo-1 3; 
end j 

end; (Pega) 

begin ( buffer_teclado } 

proxi»o:=MflXIM0; livre :=0; 

dos.ah:=7; dos,als=' (inicializa} 

t:=l; 

repeat 

i£ KeyPressed then 
begin 

MsOos(dos); (leitura sem eco no video) 
Guardai dos . al ); 
end; 
t;=t+l; 

until ( t=32000 ) or ( dos . al= ' ; ' ); 
repeat 

car; =Pega; 

i£ car <> then Writeicar); 

until car=';'; 

end, 


A rotina KeyPressed usa uma função de chamada ao sistema operacional, esta 
retoma TRUE se alguma tecla for pressionada ou FALSE, em caso contrario. A chamada 
do MsDos lê uma tecla do teclado sem ecoá-la na tela. Essas chamadas só funcionam para 
o IBM PC; se você tiver um computador diferente, deverá consultar o Manual do usuário 
do Turbo Pascal para encontrar os procedimentos corretos a usar. (No Capítulo 5 você 
aprenderá com profundidade a usar esta e outras chamadas ao sistema operacional.) 


PILHAS 


Uma pilha é o oposto de uma fila, pois utiliza acesso “último-dentro, primeiro-fora” 
(last-in, first-out , às vezes chamado LIFO). Imagine uma pilha de pratos: o prato do fim 
da pilha é o último a ser usado e o prato do topo (o último colocado na pilha) é o primeiro 
a ser usado. Pilhas são bastante usadas em software de sistemas, incluindo interpretadores 
e compiladores. 

Por razões históricas, as duas primeiras operações de pilha - armazenamento e 
recuperação - são em geral chamadas, respectivamente, push e pop . Portanto, para 
implementar uma pilha, você precisa de duas funções: Push, que coloca um valor no topo 
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da pilha e Pop, que recupera um valor da pilha. Você também precisará de uma região de 
memória para ser usada como pilha. Isto pode ser feito utilizando-se uma matriz ou através 
da alocação de uma região da memória, o que é conseguido pelo uso de uma função de 
alocação de memória dinâmica no Turbo Pascal. Como a fila, a função de recuperação 
toma um valor da lista e se este valor não estiver armazenado em outro lugar, ele a destrói. 
Aqui estão as formas gerais de Push e Pop que usam uma matriz de inteiros: 

const 

MRX=100j 


Pilha: arrayC 1..100 ] of integer; 
topo: integerj Cindica o topo da pilhai 
í deve coeecar com 1 } 

procedure Push< i: integer); 
begi n 

if topo >= MRX then WriteLn( 'Pilha cheia.' ) 

el se 

begm 

PilhaC topo 3: = i ; 
topo:=topo+lj 
endj 

end; C Push 3 

function Pop: integerj 
begi n 

topo:=topo-l; 
if topo < 1 then 

begi n 

UriteLn< 'Pilha vazia!' )j 
topo:=topo+l; 

Pop:=0; 

end 

else Pop:=pilhaCtopo 3J 
endj tPop } 


A variável topa é o índice da próxima posição aberta na pilha. Quando implementar estas 
funções, lembre-se sempre de evitar overflow e underflow. Nestas rotinas, se topo é 0, a 
pilha está vazia; se topo for maior ou igual ao último local de armazenamento disponível, 
a pilha estará cheia. A Figura 3-4 mostra como funciona uma pilha. 

Um excelente exemplo do uso de pilhas é uma calculadora de quatro funções. A 
maioria das calculadoras hoje aceita uma forma padrão de expressão chamada 
notação infixa (infix nòtation), que adota a forma geral operando-operador-operando. Por 
exemplo, para somar 100 a 200, você introduziria 100 , digitaria +, introduziria 200 , e 
digitaria =. Entretanto, algumas calculadoras usam a chamada notação posfixa (postfix 
notation), na qual ambos os operandos são introduzidos antes do operador. Por exemplo, 
para somar 100 a 200, usando notação posfixa, você introduziria primeiro 100, depois 200 
e então digitaria -K A medida que os operandos vão sendo introduzidos, vão sendo 
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Ação 

Conteúdo da pilha 

Pusfa(A) 

A 

Push(B) 

B A 
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Pop retoma F 

B A 

Pop retoma B 

A 

Pop retoma A 

vazia 

i 

1 


Figura 3-4 Uma pilha em ação. 

colocados numa pilha; quando um operador é introduzido, dois operandos são removidos 
da pilha e o resultado é colocado de volta na pilha. A vantagem da forma posfixa é que 
expressões muito complexas podem ser calculadas facilmente pela calculadora, sem muita 
programação. 

O programa calculadora é mostrado inteiro aqui: 


proara» Calculadora_Qu a tro_ Operações ; 

const 

mrx=ioo; 


pilha: arrayC1..1003 of integer; 
topo: integer; (indica o topo da pilha) 
(deve conecar com 1) 

A r b: integer; 
s: stringCBO); 

procedure PushC i: integer ); 
begin 

ir topo >= MRX then WriteLní 'Pilha cheia.' ) 

else 

begin 

pilhat topo 3: = i; 
topo:=topo+l; 
end; 

end; CPush) 

function Pop: integer; 
begin 

topo:=topo-l; 
if topo < 1 then 
begin 

HriteLn( 'Pilha vazia? ' ); 
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"topo: =topo+i; 

Pop í =0; 

end 

else Pop:=pilKaCtopo 3; 
end; í Pop } 

begin £ Calculadora} 
topo : = 1; 

Wri teLn( 'Calculadora de Quatro Operações (F = Fi«>')j 
repeat 

Wri te< ' : ' ); 

Read( s ) ; 

WriteLn; 

0 al< s / a f b ); 

if ( b=0 ) and < ( LengthC s) > 1) or ( si 1 3 <> then Push( a ) 

else 

case sí 13 □£ 

' +' : begin 

a í =Pop; 
b:=Popj 
Wr i t,eLn( a+b )} 

Push(a+b ); 

end; 

'-': begin 

a í =Pop; 
b í =Pop ; 

Wr i t,eLn( b-a ); 

Push(b-a ); 

end i 

'*': begin 

a:=P op; 
b:=P op; 

WribeLn< a*b ); 

Pi^shC a*b )j 

end; 

' /' í begin 

a:=Pop; 
b í =Pop ; 

if a = 0 then WriteLn< 'Divisão por zero! ' ) 
else begin 

Wr i teLn( b d i v a ); 

PushC b di v a ); 
end; ‘ 

end; 

end; 

until UpCaseCcopy( s/1 í 1 > )='F'; 
end . 


Embora esta versão seja capaz de operar apenas com numeros inteiros, seria simples 
alterá-la para operações de ponto-flutuante pela mudança dos tipos de dados da pilha e 
conversão do operador div para operador de ponto-flutuante (/). 
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LISTAS ENCADEADAS 


Filas e pilhas possuem dois traços em comum. Primeiro, ambas possuem regras estritas 
para a referência de dados nelas armazenados. Segundo, as operações de recuperação são, 
por natureza, destrutivas ; ou seja, o acesso a um item de uma pilha ou fila requer sua re¬ 
moção e, a menos que ele esteja armazenado em outro lugar qualquer, sua destruição. 
Tanto as pilhas quanto as filas requerem, pelo menos teoricamente, uma região contígua da 
memória para poderem operar. 

Ao contrário de uma pilha ou de uma fila, uma lista encadeada pode acessar sua 
memória de uma maneira aleatória, pois cada fragmento de informação carrega com ele um 
elo (link) para o próximo item de dado na cadeia. Uma lista encadeada requer uma 
estrutura de dados complexa, enquanto uma pilha ou fila podem operar tanto com itens de 
dados complexos quanto com simples. Uma operação de recuperação em lista encadeada 
não remove nem destrói itens da lista; para que isto seja feito deve ser adicionada uma 
operação de remoção . 

Listas encadeadas são usadas para dois propósitos. 0 primeiro é criar matrizes 
de tamanhos desconhecidos na memória. Se você souber, de antemão, o volume de arma¬ 
zenamento, poderá utilizar uma matriz simples; mas se não conhecer o tamanho real da 
lista, então você deverá usar uma lista encadeada. O segundo propósito é o da armazena¬ 
gem de bancos de dados em disco. A lista encadeada permite que você insira e delete 
itens, rapidamente, sem rearranjar todo o arquivo de disco. Por essas razões, as listas en¬ 
cadeadas são usadas extensivamente em software de gerenciamento de banco de dados. 

Listas encadeadas podem ser tanto de ligação simples quanto de ligação dupla. 
Uma lista de ligação simples contém uma ligação para o próximo item de dado. Uma lista 
de ligação dupla possui ligações tanto para o item seguinte quanto para o anterior. O tipo 
que você vai usar depende da aplicação. 


LISTAS ENCADEADAS SIMPLES 

Uma lista encadeada simples requer que cada item de informação contenha uma ligação 
com o item seguinte da lista. Cada item de dado geralmente consiste em um registro que 
contém tanto campos de informação como um pointer de ligação. O conceito de lista 
encadeada simples é mostrado na Figura 3-5. 
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Figura 3-5 Uma lista de memória de ligação simples. 

Há dois modos de se construir uma lista de ligação simples. 0 primeiro consiste 
simplesmente em adicionar cada novo item ao começo ou ao fím da lista. O outro consiste 
em colocar itens em lugares específicos da lista (por exemplo, em ordem ascendente). 

A maneira como você constrói a lista determina o modo como a função de 
armazenamento será programada, como é mostrado no caso simples de criação de uma 
lista ligada pela adição de itens no final. Você precisa definir um registro para armazenar 
a informação e as ligações. Pelo fato das malas diretas serem comuns, este exemplo utiliza 
uma. O tipo de registro para cada elemento usado na mala direta é definido aqui. (Ele é 
similar à definição de elementos do Capítulo 2.) 

Ptr_Endereco = A address; 
endereço = record 

nome: strmg[30] ; 
rua: stringC 40]; 
cidade: string[20]; 
estado: string[2]; 

CEP: stringt 5 ] ; 

proximo: Ptr__Endereco; (aponta para o proximo registro) 

end ; 
var 

primeiro, ultimo: Ptr_Endereco; 

A função Armazena_ES constrói uma lista encadeada simples, colocando cada 
novo elemento no fim. Um pointer para um registro de tipo endereço deve ser passado 
para Armazena_ES, como mostrado aqui: 


procedure Armazena_Esli: Ptr_bndereco); 

Deg in 

if u1timo=ni1 then (first item in list) 
begin 

u1timo:=i; 
primeiro:=i; 
i~.proximo:=ni 1 ; 
end else 
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begin 

ulti»o~. proximo:=i; 
i~. proximo:*=ni 1 ; 
ulti*o:*i; 
end i 

end ; { Ar«nzena_Es> * 


Embora você possa ordenar a lista criada com ArmazenaJES numa operação 
separada, é mais fácil ordenar durante a construção da lista, pela inserção de cada novo 
item na posição adequada da cadeia. Além disso, se a lista já estiver ordenada, é vantajoso 
mantê-la ordenada, inserindo os novos itens nos seus devidos lugares. Para fazer isso, a 
lista é lida seqüencialmente até que a posição certa seja encontrada; o novo endereço então 
é inserido naquele ponto, e as ligações são rearranjadas de acordo. 

Três situações possíveis podem ocorrer quando da inserção de um item em uma 
lista de ligação simples. Primeiro, o item pode se tomar o novo primeiro item; segundo, 
ele pode ser inserido entre dois outros itens; ou, terceiro, ele pode se tomar o último item. 
A Figura 3-6 mostra como as ligações são mudadas em cada caso. 


Novo primeiro item 



Figura 3-6 Inserindo um item em uma lista de ligação simples. 
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Se você mudar o primeiro item da lista, deve atualizar o ponto de entrada para 
ela em outro lugar do seu programa. Paia evitar isso, você pode usar um sentinela como 
primeiro item. Um sentinela é um valor especial que sempre será o primeiro da lista. Com 
esse método, você pode evitar que o ponto de entrada da lista mude. Entretanto, esse 
método tem a desvantagem de usar uma locação extra para armazenar o sentinela e por isso 
não será usado aqui. 

A função Faz_Iista_ESQ, mostrada aqui, insere endereços na lista de 
correspondência em ordem crescente, baseada no campo nome. Ela retoma um pointer ao 

function Faz_L i sta_ESO< i teu, primeiro: ptr_en dereco ; 

var ultimo: ptr_endereco ): ptr_endereco; 

CRrmazena dados em lista encadeada simples ordenada) 

var 

velho, topo: ptr_enderecDj 
feito: boolean; 
bea i n 

topo:=pri»eiroj 
velho:=n i 1J 
feito: =FRLSE ; 

if pri»eiro=n i I tben 
beain { priieiro elemento da lista) 
item A .prox imo:= nil; 
ultimo:=item; 

Faz_Lista_E5D:=itew; 
end else 
beg i n 

while (prineiro <> nil) and (not feito) do beain 
if prií»eiro A .no»e < item A .nome then beain 
velho:=pri»eiroj 
pri»eiro:=prii»eiro A .próxima; 
end else beain Cpara o meio da lista) 
if velho < > nil then beain 
velho A ,proxi»io:=itepj 
i tem A .proxi»o:=pri»eiro; 

Faz_Lista_ESO:=topo; (mantem o mesmo inicio) 
feito:=TRUE; 
end else beain 

itei A , proxiwo:=pri»eird; {novo primeiro elemento) 

Faz_Lista_ESO:= item; 
feito:=TRUE; 

end; 
end; 

end; {while ) 
if not feitD then 
besi n 

ultimo A .proximo:=item; Cpara o fim da lista) 
item A .proximo:=nil; 
ultimo:=item; 

Faz_Lista_ESD:=topoJ 

end; 

end; 

end; {Faz _Lista_E5G) 
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primeiro elemento da lista e também requer que os pointers y tanto do início quanto do fim 
da lista, sejam passados para ela. 

Em uma lista encadeada é incomum encontrarmos uma função específica 
dedicada ao processo de recuperação, que retome item após item na ordem da lista. Este 
procedimento é em geral tão curto que é simplesmente colocado em outra rotina, como a 
de busca, deleção, ou exibição. Por exemplo, essa rotina exibe todos os nomes em uma 
lista de correspondência: 

procedure Mostra< primeiro: ptr_endereco ); 
begin 

while primeiro < > nil do begin 
WriteLn< primeiro A .nome>í 
primeiro:=primeiro A .proximoj 
endí 

endí (Mostra) 

Aqui, primeiro é um pointer para o primeiro registro na lista. 

Recuperar itens da lista é tão simples quanto seguir uma cadeia. Você poderia 
escrever uma rotina de busca baseada no campo nome como esta: 

function Busca<primeiro: ptr_enderecoí nome: strSO); ptr_enderecoí 
var 

feito: boolean; 
begin 

f ei to:=FRLS£; 

while (primeiro <> nil) and (not feito) do 
begin 

if nome=primeiro A .nome then 
begin 

Busca:=primeiroí 
feito:=TRUEí 
end else 

primeiro:=primeiro A . proximoí 

end í 

if primeiro=nil then Busca:=nilí (naa esta' na lista) 
endí (Busca) 


Como Busca retoma um pointer ao item da lista que corresponde ao nome procurado, a 
função deve ser declarada como um pointer para o tipo endereço. Se o nome procurado 
não existir, um pointer nil será retomado. 

O processo de eliminação de um item de uma lista de ligação simples é direto. 
Como na inserção, há três casos: eliminação do primeiro item, eliminação de item 
intermediário e eliminação do último item. A Figura 3-7 mostra cada caso. 

Esta função apaga um item de uma lista de registros do tipo endereço. 
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Figura 3-7 Apagando um item de uma lista encadeada um a um. 


function flpaga_ESí primeiro^ item, anterior: ptr_endereco > : p tr_endereço; 

beg i n 

if anterior < > nil then 

anterior A .proxiroo:=ite» A .proxiwo 
else priroeiro:=itero A .proxirooj 
Rpaaa_ES:=priweiro: 
endj C flpaga_E-S 3 

ApagaJES deve receber pointers para o item a ser apagado, para o item imediatamente 
anterior a ele na cadeia e para o início da lista. Se o primeiro item deve ser removido, o 
pointer anterior deverá ser nil. A função deve retomar um poiníer ao início da lista no 
caso em que o primeiro item é apagado - o programa deve saber onde o novo primeiro 
elemento está alocado. 

Listas de ligação simples possuem uma desvantagem maior que impede seu largo 
emprego: a lista não pode ser seguida em ordem inversa. Por essa razão, listas de ligação 
dupla geralmente são usadas. 


LISTAS DE LIGAÇÃO DUPLA 

Listas de ligação dupla consistem em dados ligados tanto ao item anterior quanto ao 
posterior. A Figura 3-8 mostra como as ligações são organizadas. Uma lista que possua 
duas ligações em vez de uma tem duas vantagens principais. Primeiro, a lista pode ser lida 
em qualquer direção. Isso não só simplifica a ordenação da lista como, no caso de um 
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banco de dados, permite que o usuário pesquise a lista em qualquer direção. Segundo, se 
uma ligação se tomar inválida, a lista poderá ser reconstituída seguindo-se as ligações no 
sentido inverso, pois pode-se ler a lista tanto em um sentido como no outro. Isto, 
entretanto, só é significativo em caso de falha do equipamento. 



Figura 3-8 Uma lista de ligação dupla. 

Três operações primárias podem ser executadas em uma lista de ligação dupla: 
inserção de um novo primeiro item, inserção de um dovo elemento intermediário, e 
inserção de um novo elemento final. Essas ordenações são mostradas na Figura 3-9. 

A construção de uma lista de ligação dupla é similar à construção de uma lista 
de ligação simples, exceto por ser necessário que o registro tenha lugar para manter duas 
ligações. Usando novamente o exemplo da mala direta, você pode modificar endereço, 
como mostrado aqui, para acomodar o seguinte: 

type 

str80 = string( 803j 
Ptr_Endereco = A enderecoj 
endereço - record 

nove: string[303; 
rua: stringC 403j 
cidade: string[ 203j 
estado: string(2 3j 
cbp: stringC53; 

proximo: Ptr_Enderecoj (aponta para o proximo registro! 
anterior: Ptr^Endereco; (aponta para □ registro anterior} 


end; 
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Inserindo novo primeiro elemento 



Figura 3-9 Inserindo um item em uma lista de ligação dupla. 

Usando o registro endereço como item básico, o procedimento ArmazenaJED constrói 
uma lista de ligação dupla: 

procedure flmazena_ED( i : Ptr_Endereco ); 
begin 

if ultimo=nil then (primeiro item da listai 
begi n 

ultimo:=i; 
pri*eiro:=i; 
i A .proxi mo :=ni1 } 
i A .anterior:=ni1; 

end 

else 

begi n 

ultimo A .proxi mo :=i; 
i A .proxi mo :=ni1; 
i A .anterior:=ultimo; 
ultimo:=ií 

end; 
end; 


CRrmazena ED } 
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Este procedimento coloca cada nova entrada no final da lista. 

Como no caso da lista de ligação simples, uma lista de ligação dupla pode 
possuir uma função que armazene cada elemento em uma alocação específica na lista 
enquanto ela é montada, em vez de colocar o novo item sempre no final. A função 

function Rrmazena_EDO< i tem, primeiro: Ptr_Endereco; 

var ultimo: Ptr_Endereco ).: Ptr_Endereco; 

C armazena dados em lista encadeada dupla ordenada} 

var 

velho, topo: Ptr_Endereco; 
feito: boolean; 
bea i n 

topo:=primeiro; 
velho:=ni1; 
feito:=FRLSE; 

if primeiro=ni1 then 
beain {primeiro elemento da lista) 
item A .proximo:= nil; 
ultimo:=item; 
item A .anterior:=nil; 

Rrma zena_EDO: = item; 
end else 
beai n 

while (primeiro <> nil) and ( not feito) do beain 
if primeiro A .nome < ite» A ,no«e then beain , 
velho:=primeiroj 
primeiro:=primeiro A .proximo; 
end else begin {para o meio) 
if velho < > nil then beain 
velho A ,proximo:=itemj 
item A ,proximo:=primeiro; 
primeiro A .anterior: = item ; 
item A .anterior:=velha; 

Rrmazena EDO:=topo; {mantem o mesmo inicio) 
feito:=TRUE 5 
end else beain 

item A .proximo:=pr i meiroj {novo primeiro elemento) 
item A .anterior :=ni1; 

Rrmazena_EDO:= item; 
feito:=TRUE; 

end; 

end; 

end; {while) 
if not feito then 
beain 

ultimo A .proximo : =item; {para o fim) 
item A ,proximo:=nil; 
item A .anterior : = ultimo; 
ultimo:=item; 

Rrmazena_EDO:=topo; 
end; 
end; 
end; 


{Rrmazena EDO) 
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ArmazenaüEDO cria uma lista que é ordenada em ordem crescente baseada no campo 

nome. 

Como um item pode ser inserido no topo da lista, esta função deve retomar um pointer ao 
primeiro item para que as outras partes do programa saibam onde começa a lista. Como na 
lista encadeada simples, para que o programa recupere um item de dado específico, ele 
deverá seguir as ligações até que seja encontrado o item correto. 

Há três casos a considerar quando da eliminação de um item de uma lista 
encadeada dupla: eliminação do primeiro item, eliminação de um item intermediário e 
eliminação do último item. A Figura 3-10 mostra como as ligações são rearranjadas. 



Figura 3-10 Eliminação de um item de uma lista encadeada dupla. 

A seguinte função apaga um item do tipo endereço de uma lista encadeada 


. dupla. 
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function Rpasa.DK PrineirOí ite»: Ptr_Endereco>: Ptr_EnderecoJ 
begin 

if priweiro+ite» then begin Cdelete first in list) 
Rpaga - _ED:=pri®eiro A .proxiiio; 
ií itew A .proxi mo <> nil then begin 
itei A .proxi»o A .anterior:=ni1J 
end; 

di spose( pr í »e iro ).: 
end else begin 

itew A .anteriDr A ,proxi»□:=item A .proxiwo} 
i tew A . proxi **□ A . anter i or : = i te» A .anterior; 

Rpaga_ED:=priuéiro; [ainda o «esmo inicio) 
end; 

end; C Rpaga_ED 3 

Esta função, em relação à lista encadeada simples, requer que um pointer a menos seja 
passado para ela; o item de dado que está sendo apagado já canrega uma ligação ao 
elemento anterior e ao posterior. Como pode haver mudança do primeiro item da lista, o 
pointer do item do topo é passado de volta à rotina de chamada. 


UMA'MALA DIRETA 

QUE USA UMA LISTA ENCADEADA DUPLA 


Aqui está um programa simples de mala direta que utiliza uma lista encadeada dupla. A 
lista inteira é mantida na memória enquanto em uso; entretanto, o programa pode ser 
modificado para armazenar a mala direta em arquivo de disco. 


proa ram Mala_Direta; 


type 

strBI) = strinçLÕOD; 

Ptr_Enderecc = •"'endereço; 
endereço = record 

nome: string [303; 
rua: string E403 ; 
cidade: string[203; 
estado: string[23; 
cep: string[53; 

proximo: Ptr_Endereco; í aponta para o proximo registro} 
anterior: Ptr_Endereco; Caponta para o registro anterior} 

end; 


tipo_arq = file of endereço; 


t,t2: inteqer; 
mala_dir: tipo_arq; 
primeiro,ul timo : Ftr_Endereco; 
-Feito: boolean; 


var 
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t u.'vz ti cri Menuschsr; (retoma oocao do usuário! 


vsr 

car: c har í 


begin 

WriteLn('1. 

wiri teL.nl '3r 
Wr iteLn( '4. 
WriteLní '5. 
WriteLn('6. 
writeLn í1 7 * 


Digitar nomes' f: 
Apagar uni nome' í : 
'«ter 1 ista.' I ; 
FrccLrar um nome' ) : 
Gravar lista' ■' I 
Ler lista')-; 


reoeat 


WriteLn s 

Write('Digite a sua opz ac: 
Read(car): car:-DoCaSescar>: 
■..int.il (car >= ' 1' | and (car <= 


WriteLn: 


end; -Clienu! 

function Armazena_EDOíitem, primeira: PtrJEndereco; 

var ultimo: Ptr_Enderecc): Ptr_Eridereco; 
■í armazena dados em lista encadeada du.pl a ordenada! 


ve 1 ho k topo: PtrJEndereco; 
■f ei to s too 1 ean; 

topo: "primeiro; 
ve:ii“c#í=nil: 
fo-itd:^=AL3E; 


□ r i me i ro=n i 1 t her i 

begin íprimeiro elemento da 1iscai 
.1 tem""-« orox ima: n i 1; 

U1 timo:=item; 
i tem"". an tenor: =n i 1; 

Armazena_EDO: -i tem; 
end else 
begin 

whiie (primeiro <> nil) and (not feita) do begin 
i-f primeira"".nome < item - "", nome then begin 
velho ? =primeiro ; 
primeiro: =primeirc"". próxima s 
end else begin ípara o meio! 
if velho <> nil then begin 
ve 1 ho"" - - proximc: =item: 
i tem'"-. prox imo: =primei ro; 
primei ro"'"„ an ter ior: =i tem: 
i tem"' - . an terior: =ve 1 ho; 

Armazena__EDO:=topo; imantem o mesmo inicio! 
•feito:=TRLE; 
end else begin 

item"".proxino:=primeiro; (novo primeiro elementc 
item"".anterior:=nil; 

Armazena_EDO: = item; 
feito:=TRUE; 

end; 
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end; 

end; -Cwhile} 
if not feito then 
begin 

u 1 timo - " - . prox imo : =item; Cpara o -fim} 

i tem-'’ - . prox imo : =n i 1 ; 
i tarr'"-. anterior: =ul timo ; 
últimos—item5 
Armazena JEDOs =topo; 
end; 
end; 

end; C Armazena JEDO} 


-furicticn Apaga.Lu (primeiro; Ptr__Endereco; chaves strSO): Ptrjmderí 


temo, temp2s PtrJEndereca; 

■f ei to: boo i ean ; 
begin 

i-f primeirQ'"-nome=chave then begin Capaga o primeiro da lista} 
Apaga__ED:: -primeira"". prox imo; 
i-f temp'" - .proximo <> nil then begin 
temp: -primei ro "•. prox imo ; 
tenip ’ , an ter ior; =n 1 1; 

8"id ; 

dispose<primeiro); 
end eise begin 
feitas “FALSE; 


temp: -primeiro"' - . próxima: 
temp2;-primeiro; 

iwhile (temp O- nii) and (not feito) do 
begin 

i f tsT:p’ - »nome=c have then 
begin 

tsmp2" % . próxima;-temp - "' - . prox imo ; 
i-f temp"''-.próxima <> nil then 

tema'"-. oroxino"' - , -anterior: =temc2; 
feitos-TRJE; 
disoose < temo); 
end else 


bSQin 

temp2 s -teme:: 
temos -temo" - .. prox imo ; 
■and n 


end; 

Apaga jED:-primeiro; -C ainda o mesmo inicio} 
if not -feito then Writsui < *Nao encontrado»' ): 
end; 

end; fApaga E3D } 


:o; 


orocedure Remove; 
var 

nome: strQO; 
begin 

Wr i te ('Digite o nome a apagar: '); 
Read(nome); WriteLn; 
primeiro s =Apaqa_ED(primeiro,neme); 
end; -CRemove} 
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procedure Bigitacao; 
var 

i tem: PtrJEndereco; 
feito: boolean; 
begin 

feito:=m_SE; 

-epeat 

New (i tem); C faz novo reg istro} 

Write('Nome: '); 

Read (item""-. nome); Wri teLn; 

if Length(item'*-.nome)=0 then feito:=TRUE 

else 

begin 

Write('Rua: '); 

Read (i tenr"-. rua); Wri teLn; 

Write('Cidade: '); 

Read (i tem-"' - . c idade); Wri teLn; 

Write('Estado: ' ); 

Read (i tem*" - . estado); Wri teLn; 

Write('CEPí ' ); 

Read (i tem*" - .cep) ; Wri teLn; 

primeiro:=Armazena_EDO(item;,primeiro,ultimo); Carmazena} 
end; 

until feito; 
end; C Digitacao} 

procedure ^tostraíprimeiro: PtrJEndereco); 
begin 

while primeiro O nil do begin 
Wri teLn (primeiro'*-. nome); 

Wri teLn (primei ro - " - . rua) ; 

WriteLnC primeira"-, cidade) ; 

WriteLn < primeira" .estado) ; 

Wri teLn (primei ro-'" - , cep); 
primeiro:=primeiro-"-. proKimo; 
end; 

end; -C Mostra} 

function EUsca( primeiro: ptr_endereco; nome: siirSO): ptr_endereco; 
var 

feito: boolean; 
beqin 

' feito :=FALSEn 

while (primeiro O nil) and (not feito) do 
begin 

if nome=primeiro"-.nome then 
beqin 

Eusca :=pr imei ro; 
feito :=TRJE; 

' end else 

primeiro:=primeira* x . proximo; 

end; 

if primeiro=nil then Busca:=nil; ínao esta" na lista} 
end; -CBtisca} 

procedure Procura; 
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var 

1oc: Ftr_Endereco: 
nome: str80 r 
begin 

Wri te ('Digite o nome: '); 

Read (nome); Wri teLri: 

1 oc s =Busca (primeiro . nome >: 
i -f 1 oc <> n i 1 then Wri teLn (1 oc"". nome / 
else Wri teLn ('Nao esta/ ' na lista. ' 
erid; íProcurai 

procedure Grava (var r: tipo_arq: primeiros Ptr_Endereco); 
begin 

Wri teLn (' Gravando arou.ivo.' ): 

Rewrite(-f >; 

while primeiro O nil do 
begin 

Wri te < r , primei ro""); 
primeiro: =primeiro"‘*. próxima : 
end; 

erid; -C Gravai 

■fune tion Le (var f s tioo_arq ; primeiros Ptr Endereço i: Ptr_ Endereço ; 

•Cretoma um ponteiro para o primeiro elemento da listai 

var 

temp. temp2: Ptr_Enderecc; 
first: boolean; 
begin 

WriteLnC 'Lendo arem vo. " 3 ; 
resetí f); 

while primeiro ml do 
begin Cli bera memória1 

temp ' =primeiro" . proximo; 
disposeí primeiro/ ; 
primeiro: - temp: 
end: 


primeiro: =ni 1; ul timos =ni 1 s 

it not eof(-f) then 

begin 

New (temp >: 

Read (i, temp""); 

temp"'" . proíi imo s =ni 1 ? temp"'-. anterior: =n i 1 s 

Le:=temp; C aponta para o orimeiro elemento da listai 
end; 


while npt eof(-f) do 
begin 

New (temp2) ; 

Read (-f, temp2'"-); 

temp"". prox imo : =témp2; -C-faz listai 
temp2"-. proximo :=nil: 
temp"". an ter ior: =temp2; 
temp r =temp2 ■ 
end; 

ul timo ; =temp2; 
end: -CLel 
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begin 

primeiro:=nil; -Cl is ta inicial mente vazia* 

ultifTo:=nil s 

*eitQ:=FALSE; 


Assign(maia.dir, ' ffiala_dir.dat' ): 


repsat 

case Menu of 

'í'i Digitacao; 

'2': Remove; 

' 3' : Mostra (primeiro); 

'4': Procura; 

' 5' : Grava(ma1a_dir,primei ro) ; 

' 6 " : primeiro:= d _e(mala_bir,primeiro) ; 
'7': feito:=7RJE; 
end; 

un t i 1 -f ei to=TR1_E; 
end. imala dir* 


ÁRVORES BINÁRIAS 


A quarta estrutura de dados é a árvore binária. Embora possa haver muitos tipos de 
árvores, as árvores binárias são especiais, pois quando ordenadas elas se prestam a buscas, 
inserções e remoções rápidas. Cada item em uma árvore binária consiste em uma 
informação com uma ligação ao elemento da esquerda e uma ligação ao elemento da 
direita. A Figura 3-11 mostra uma árvore pequena. 

A terminologia necessária para discutir árvores é um caso clássico de metáforas 
misturadas. A raiz é o primeiro item da árvore. Cada item de dado é chamado de nó (ou às 
vezes de folha) da árvore, e qualquer pedaço da árvore é chamado de subárvore. Um nó 
que não possua subárvores ligadas a ele é chamado de nó terminal. A altura da árvore é 
igual ao número de camadas que sua raiz cresce em profundidade. Ao longo de toda esta 
discussão, imagine que as árvores binárias aparecem na memória do mesmo jeito que 
aparecem no papel, mas lembre-se de que uma árvore é apenas uma maneira de estruturar 
dados na memória, e a memória possui um formato linear. 

A árvore binária é uma forma especial de lista encadeada. Itens podem ser 
inseridos, apagados e acessados em qualquer ordem. Além disso, a operação de 
recuperação não é destrutiva. Embora sejam fáceis de visualizar, as árvores apresentam 
difíceis problemas de programação, que serão apenas introduzidos nesta seção. 
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Nós terminais (folhas) 


Figura 3-11 Um exemplo de árvore binária. 

A maioria das funções que operam com árvores é recursiva, pois a própria 
árvore é uma estrutura de dados recursiva; ou seja, cada subárvore é uma árvore. Portanto, 
as rotinas que são desenvolvidas aqui também são recursivas. Versões não-recursivas 
destas funções também existem, mas são muito mais difíceis de entender. 

A ordem de uma árvore depende de como essa árvore será acessada. O processo 
de acessar cada nó em uma árvore é chamado de varredura da árvore (tree traversal). 
Aqui está um exemplo: 
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Há três modos de percorrer uma árvore chamados, em inglês: inorder , preorder e 
postorder. Com inorder , você visita a subárvore da esquerda, visita a raiz, e então visita a 
subárvore da direita. Em preorder você visita a raiz, a subárvore da esquerda e em seguida 
a subárvore da direita. Com postorder , você visita a subárvore da esquerda, a subárvore da 
direita e a raiz. A ordem de acesso para os três processos mostrados, usando cada método, 
é a seguinte: 

inorder a b c d e f g 

preorder d b a c f e g 
postorder a c b e g f d 

Embora uma árvore nem sempre precise ser ordenada, a maior parte das 
aplicações exige isso. O que constitui uma árvore ordenada depende de como você a 
percorrerá. Os exemplos do restante deste capítulo acessam a árvore inorder.. Em uma 
árvore binária ordenada, a subárvore da esquerda contém nós que são menores ou iguais à 
raiz, enquanto aquelas à direita são maiores que a raiz* A seguinte função chamada 
Armazena^arv constrói uma árvore binária ordenada. 

t ype 

ptr_arvore = A arvore; 
arvore = record 
dado: char) 
esquerdo: ptr_arvore; 
direito: ptr_arvore; 

end; 

function Rriazena_arv( rai 2 } r: ptr^arvore; dado: char ): ptr^arvorej 
begi n 

i£ r=nil th»n 
begi n 

New(r); (prepara novo no' 3 
r A , esquerdo:=ni1 j 
r A .direito :=ni1; 
r A .dado:=dado; 
i £ raiz <> nil then 

if dado < raiz A .dado then ra 1 1 A . es querdo:=r 
else raiz A .direito:=r; 

Rnazena_arv: =r; 
end else 
begi n 

if dado < r A ,dado then 

Rn*azena_arv:=flmazena_arv( r, r A .esquerdo,dado ) 
else Rrmazena_arv:=fír»azena_arv<r f r A . d ire 1 to f dado); 
end; 

end; (flrmazena_arv} 

Este algoritmo simplesmente segue as ligações pela árvore, seguindo à direita ou à 
esquerda, baseado no campo dado. Para usar esta função você precisa de uma variável 
global que contenha a raiz da árvore. Essa variável global deve ser inicializada em nil. 
Um pointer para a raiz é atribuído na primeira chamada de Armazena_arv. Uma vez que 
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chamadas subsequentes não precisarão reatribuir a raiz, a variável dummy é usada. Se 
você admitir que o nome desta global é rz, então para chamar a função Armazena w arv 
você usará 

í chama flrnaiena_arv 3 

if rz = nil then rz := 8rmazena_arv( rz } rz } i te» ) 
else úumy flr»a 2 ena_arv( rz,rz, ite» ) 

O uso desta chamada permite que sejam inseridos corretamente tanto o primeiro elemento 
como os subseqüentes. 

Armazena—arv é um algoritmo recursivo, assim como a maioria das rotinas para 
árvores. A mesma rotina seria várias vezes mais longa se fossem usados métodos iterativos 
comuns. A função deve ser chamada com um pointer para a raiz e para a subárvore, e com 
a informação de que deve ser armazenada. Embora, por simplicidade, aqui tenha sido 
usado como informação um único caractere, você pode substituí-lo por qualquer tipo de 
-. dados que deseje. 

Para percorrer a árvore construída, usando Armazena_arv pelo método inorder 
e imprimindo o campo dado de cada nó, você poderia usar a função InOrder: 

procedure InOrder(raiz: • Ptr_Rrvore): 
begi n 

i£ raiz <> nil then 
begin 

InDrderC raiz A .esquerdo )j 
Uri te(raiz A .dado); 

InOrder< raiz A .direi to )} 
end; 

endj C I nOrder } 

Esta função recursiva retoma quando encontra um nó terminal (um pointer nil). As 
funções para percorrer a áivore em preorder e postorder são mostradas aqui: 

procedure PreDrder< raiz : Ptr_Rrvore ); 
begin 

if raiz <> nil then 
beg i n 

Write( raiz A .dado ); 
preorder( raiz A .esquerdo ); 
preorder( raiz A .direito ); 
end ; 

end; í PreOrder } 

procedure PostOrder(raiz: Ptr_Rrvore); 
begin 

if raiz <> nil then 
begin 
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postorderí raiz*.esquerdo); 
postorderC raiz*.direito); 
WriteC raiz*.dado ); 
end) 

end; CPostOrder"* 


Você pode escrever um programa curto que construa uma árvore binária 
ordenada e imprima aqueles três caminhos lateralmente na tela do seu computador. Você 
precisa apenas de uma pequena modificação para o procedimento Inorder. O novo 
programa, chamado Desenha^Arvore imprime uma árvore inorder . 

program Desenha_Rrvorej 
type 

Ptr_Rrvore = *arvore; 
arvore = record 
dado: charj 
esquerdo: Ptr_Rrvore; 
direito: Ptr_Rrvore) 

end; 


var 

raiz j fantasma: Ptr_Rrvorej 
car: char ) 

function Rr»azena_Rrv(raiz,r: Ptr_RrvoreJ dado: char): Ptr_Rrvore; 
be9 i r\ 

if r=riil then 
beg i n 

New(r); C prepara um novo no'} 
r A ,esquerdo:=nil; 
r A .direito:=nil; 
r A .dado:=dado; 
if raiz <> nil then 

if dado < raiz*.dado then raiz A . es querdo:=r 
else raiz*,direito:=r; 

Rrwazena_flrv:= r; 
end else 
beg i n 

if dado < r* , dado then Rrmazen a_Rrv : =Rmazena_Rrv( r f r A . esquerdo } dado ) 
else Rri»azena_Rrv:=Rrmazena_Rrv( r, r A . direito, dado ); 
end; 

end; í Rrwazena_Rrv } 

procedure Desenha_Rrv(r: Ptr_Rrvore; n: integer); 
var 

i : integer; 
beg i n 

i f r < > nil then 
beg i n 

Desenha_Rrv(r A .esquerdo,n+1 ) j 
for i :=1 to n do WriteC ' ' ); 

WriteLnC r A .dado ); 

Desenha_Rrv(r A .d i reito,n+1 ) $ 
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end; 

end; CDesenha_Rrv } 

begin {principal! 
rai 2 :=ni1; 
repeat 

Write( 'Digite uma letra (F = Firo): ' ); 

Read(car ); WriteLn; 

if raiz=nil then raiz:=flrroazena_flrv<rai z } r aiz , car) 
else fantasia:=Rrroazena_Rrv< raiz,raiz,car ); 
car!=UpCase( car ); 
unti1 car='F'; 

Oesenha_flrv( raiz;0 >; 

end . 


0 programa realmente ordena os dados que você fornecer a ele. Esse processo é uma 
variante do ordenador por inserção que foi dado no capítulo anterior. Para o caso médio, a 
performance deste ordenador pode ser bastante boa, mas o QuickSort é um método de 
ordenação para uso geral ainda melhor, pois utiliza menos memória e tem menos trabalho 
de processamento. Entretanto, se você tiver de construir uma árvore partindo do nada ou 
se tiver de manter uma árvore já ordenada, deve sempre introduzir novos dados já 
ordenados usando a função Armazena_arv. 

Se você já rodou o programa Desenha_Arvore, provavelmente deve ter notado 
que algumas árvores são equilibrados - cada subárvore é da mesma ou quase da mesma 
altura que qualquer outra - enquanto outras árvores são muito desequilibradas. Se você 
entrasse com a árvore abcd, sua construção seria como segue: 

a 



Não haveria subárvores à esquerda. Isso é chamado de uma árvore degenerada , pois 
degenerou em uma lista linear. Em geral, se os dados que você usar para construir uma 
árvore binária forem bem aleatórios, a árvore produzida se aproximará de uma árvore 
equilibrada. Entretanto, se a informação usada já tiver sido ordenada, aparecerá uma 
árvore degenerada. (É possível reajustar a árvore a cada inserção de modo a manter a 
árvore equilibrada. Os algoritmos para fazer isso são muito complexos; se você estiver 
interessado neles, consulte livros de algoritmos de programação avançada.) 
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Funções de pesquisa são fáceis de implementar para árvores binárias. Esta 
função retoma um pointer ao nó na árvore que corresponde à chave; caso contrário, ela 
retomará um nil: 

function BuscaCraiz: Ptr_Cel; chave: sir9): Ptr_Cel) 
begin 

i£ raiz < > nil then 
begin 

while ( r a i z A . No»e_Cel <> chave) and (raiz <> nil) do 
begin 

if raiz A .Nome_Cel < chave then raiz : = *.esquerdo 
else raiz:=raiz A .direito; 
end; 
endj 

Busca:=raizj 
end; ( Busca 3 

Infelizmente, apagar um nó de uma árvore não é tão simples como pesquisar a 
árvore. O nó apagado pode ser tanto a raiz, um nó esquerdo, ou um nó direito. 0 nó pode 
ter também de zero a dois subnós ligados a ele. O rearranjo dos pointers presta-se a um 
algoritmo recursivo, como mostrado aqui: 

function flpaga_Rrv(raiz: Ptr_Rrvore; chave: char>; Ptr^Rrvorej 
var 

tenp;tewp2: Ptr_Rrvore; 
begin 

if raiz A .dado=chave then 
begin (apaga a raiz 3 

if raiz A .esquerdc=raiz A .direito then 
begin (arvore vazia] 

Dispose< raiz ); 

Rp aga_Rrv: =n i 1j 

end 

else if raiz A , es querdo=ni1 then 
begin 

temp: = r aiz A .direito; 

Disposeí raiz ); 

Apaga_Rrv:=te»p; 

end 

else if raiz A .direito=ni1 then 
begin 

temp: = raiz A .esquerdo; 

Disposeí rai z ); 

Rpaga_Rrv:=temp; 

end 

else begin (ambos os ramos presentes] 
temp2:=raiz A .direito; 
temp:=raiz A .esquerdo; 

while tewp A .esquerdo <> nil do temp:=te»p A .esquerdo; 
temp A .esquerda:=raiz A .esquerdo; 

D i spose( raiz ); 

Rpaga_Rrv:=temp2; 
end; 
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end 

else besin 
i £ raii A , 
else raiz 
Rpasa_Rrv 
end; 


dado < chave then raiz A .direito:=Rpasa_Rrv( raiz A .direito,chave> 
A .esquerdo:=Rp aga_Rrv< raii A .esquerdo,chave)5 
: = rai Zj‘ 


end; ÍRpasa.Rrv} 


Lembre-se de atualizar o pointer da raiz no resto do seu programa, pois o nó apagado pode 
ser a raiz da árvore. 

Quando usado com programas de gerenciamento de bancos de dados, as árvores 
binárias oferecem poder, flexibilidade e eficiência. A informação para esses bancos de 
dados deve estar em disco, e os tempos de acesso são importantes. Por ter log 2 n 
comparações a executar, no pior caso, uma árvore binária equilibrada funciona muito 
melhor que uma lista encadeada, que depende de uma busca seqüencial. 




Escrever um programa pode ser como construir um prédio, com diversas considerações de 
ordem tanto estética como funcional, influindo no aspecto final. Assim, alguns programas 
são tão funcionalmente rígidos quanto uma casa, que tem um certo número de quartos, 
uma cozinha, dois banheiros etc. Outros têm a arquitetura aberta de centro de convenções, 
com paredes móveis e compartimentos modulares, permitindo sua adaptação a diferentes 
finalidades. Este capítulo descreve métodos de armazenamento que facilitam a confecção 
de programas flexíveis, adaptáveis às necessidades do usuário e à capacidade de cada 
máquina. 


Este capítulo usa os termos matriz lógica e matriz física. A matriz lógica é a que 
existe apenas virtualmente no computador. Uma planilha eletrônica é uma matriz lógica. A 
matriz física é a que existe de fato. São as rotinas de apoio da matriz dispersa que tomam 
estas duas matrizes a mesma. Veremos quatro técnicas diferentes para se criar uma matriz 
dispersa: a lista encadeada, a árvore binária, uma matriz de ponteiros e hashing. Serão 
também apresentados exemplos dos modos pelos quais a alocação dinâmica pode ser usada 
para melhorar o desempenho de um programa. 

O Pascal pode armazenar informações na memória do computador, de duas 
maneiras diversas. A primeira é pelo uso de variáveis globais e locais, inclusive matrizes 
e registros, definidas na linguagem Pascal. As variáveis globais têm armazenamento fixo 
durante a execução do programa. Para as variáveis locais é usado o espaço do stack. O 
único inconveniente apresentado por este método é a necessidade de conhecimento prévio 
da quantidade de memória a ser usada em qualquer caso possível. O segundo modo de 
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armazenamento, mais eficiente, faz uso das funções de alocação dinâmica do Pascal: New, 
associado ao par Mark/Release ou a Dispose. 

Na alocação dinâmica, é usada a área livre da memória, localizada entre a área 
ocupada permanentemente pelo programa e o stack (usado para o armazenamento de 
variáveis locais). Esta área é chamada heap . 

A Figura 4-1 mostra o esquema de um programa em Pascal, ocupando a 
memória. O stack cresce de cima para baixo. A quantidade de memória que ele usa 
depende da estrutura do programa a ser executado. Um programa com muitas funções 
recursivas requer mais memória para o stack que um programa sem função recursiva 
alguma, isto porque cada chamada recursiva usa o stack . A memória necessária para 
conter o corpo do programa e as informações globais é fixa durante a execução. A 
memória requerida por um New é tomada da área de memória livre, começando acima das 
variáveis globais e crescendo em direção ao stack ’ Em casos extremos, pode ocorrer uma 
colisão entre o stack e o heap. 


Memória alta 


Memória baixa 


Stack 

_L 

t 

Heap 


Variáveis globais 


Programa 


Figura 4-1 Uso da memória por um programa em Pascal. 
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O heap é controlado através dos procedimentos Dispose ou Mark/Release. 
Como diz o Manual do Turbo Pascal , Dispose e Mark/Release nunca podem ser usados 
juntos, num mesmo programa. Você deve, então, decidir de início qual dos dois 
procedimentos será usado. Para ajudá-lo nessa decisão, segue uma rápida revisão de New, 
Dispose e Mark/Release. 


NEW 

New aloca memória do heap. Este procedimento predefmido tem como argumento um 
ponteiro, e aloca, no heap , memória suficiente para conter o tipo de variável à qual o 
ponteiro em questão se refere. Após a chamada de New, o ponteiro estará indicando a 
memória alocada. Por exemplo, para alocar espaço no heap para um real, vòcê poderia 
fazer assim: 

type 

ptr__real=~ real; 
var 

p:ptr_real; 

begin 

New(p); 


Se não houver memória livre no heap , o erro de tempo de execução FF 
(heap/stack collision) ocorrerá. Isto pode ser evitado fazendo com que cada New seja 
precedido de uma chamada de maxavail, a qual retoma o número de bytes (nos sistemas 
de 8 bits) ou parágrafos (nos sistemas de 16 bits) disponíveis no heap. Os exemplos deste 
capítulo não incluem este passo, mas podem ser úteis em programas reais. 


DISPOSE 

Uma das principais razões em favor do uso da alocação dinâmica da memória é a possibi¬ 
lidade, oferecida por este método, de reutilização da memória. Dispose é um dos modos 
pelos quais memória pode ser liberada no heap. Dispose tem por argumento um ponteiro 
usado previamente numa chamada de New. Assim, Dispose contém um ponteiro que 
indica uma região válida de alocação do heap , Após a execução de um Dispose, a região 
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que havia sido alocada para aquele ponteiro está livre para nova alocação. No exemplo a 
seguir, memória é alocada para um ponteiro referente a uma matriz de 40 elementos e, 
após o uso, liberada: 

program flwostra; CExewplo de New e Dispose juntos 3 
t ype 

pont= A Registro.i 

Registro= arrayt1. ,40 3 of integerj 


P: pontj 
t: integerj 


begi n 

New( p )j . 

for t:=l to 40 do p A Ctj: = t*2j 
for t:=l to 40 do Wr i te< p A C t 3 f ' ' )j 

WriteLn j 
Disposeí p > j 


MARK E RELEASE 


Mark e Release também podem ser usados para liberar memória do heap após seu uso 
pelo programa. Resumindo, Mark é chamado antes do uso de um New. Quando for o 
momento de liberar a memória, uma chamada a Release liberará toda a memória alocada 
desde o Mark. Este método devolve ao heap blocos de memória, enquanto o Dispose 
libera apenas a memória usada por um único ponteiro. 

Mark tem como argumento um ponteiro de qualquer tipo, cuja única função é 
marcar o ponto inicial de uma região no heap . Release deve ser chamado com o mesmo 
ponteiro, que não pode ser modificado. O programa seguinte aloca memória para uma 
matriz de 40 elementos e libera esta área, usando Mark e Release. 

prograwi Rloca; Cesta versão usa Mark e Release) 
t ype 

pont- A Registro; 

Registro= arrayCl.,403 of integerj 

var 

p: pontj 
t: integerj 
q: A integerj 
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besi n 

harK( q ); 

Neu(p ); 

for- t;=l to 40 do p A Ct3:=t*2; 

tor t:=l to 40 do Writei p A Ct]. ' ' ): 

WriteLnj 
ReieaseC q ); 

(neste momento toda a memória foi devo 
end . 


ida ao si 5 tema 3 


A escolha do método a ser usado dependerá sempre do programa em questão. Se 
apenas uma parte da memória alocada no heap deve ser liberada, então Dispose é o melhor 
método. Se toda a memória alocada tiver de ser liberada, então Mark e Release devem ser 
usados. Os exemplos deste capítulo usam Dispose, pois ele oferece maior flexibilidade. 
Entretanto, sinta-se livre para usar Mark e Release, sempre que achar melhor. 


PROCESSAMENTO DE MATRIZES DISPERSAS 


Um dos principais usos da alocação dinâmica é no processamento de matrizes dispersas. 
Numa matriz dispersa, nem todos os elementos potenciais da matriz estão presentes na 
memória da máquina ao mesmo tempo. A matriz dispersa é usada quando a matriz 
requerida por um dado programa ultrapassa, por seu tamanho, a capacidade de memória da 
máquina, e quando nem todos os elementos da matriz serão usados ao mesmo tempo. 
Matrizes podem ocupar grandes áreas da memória, pois o espaço por elas ocupado cresce 
polinomialmente em relação a suas dimensões. Por exemplo, enquanto uma matriz de 
10 x 10 ocupa apenas 100 bytes, e uma matriz de 100 x 100 apenas 10.000 bytes, uma 
matriz de 1.000 x 1.000 ocupará 1.000.000 de bytes de memória. 

Uma planilha de cálculo é um ótimo exemplo de matriz dispersa. Mesmo que a 
matriz pareça grande, 999 x 999 digamos, apenas uma parte dela poderá ser usada a cada 
momento. Nas planilhas, a matriz contém fórmulas, valores e seqüências de caracteres 
associados a cada endereço. Numa matriz dispersa, o espaço para cada elemento é alocado 
do heap, sempre que necessário. Apesar de apenas uma pequena parte dos elementos 
poder ser usada ao mesmo tempo, a matriz parecerá grande, maior do que caberia na 
memória do computador. 

Existem três técnicas distintas para se criar uma matriz dispersa: uma lista 
encadeada, uma árvore binária e uma matriz de ponteiros. Os exemplos assumem que a 
planilha está organizada do seguinte modo: 
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A-B-C 


1 

2 

3 

4 

5 

6 
7 


Neste exemplo, X está na célula B2. 


O USO DE LISTAS ENCADEADAS NA CRIAÇÃO DE MATRIZES DISPERSAS 


Numa matriz dispersa, criada por meio de uma lista encadeada, um registro é usado para 
manter informações sobre cada elemento da matriz, informações estas que incluem a 
posição lógica do elemento na matriz e as ligações com o elemento anterior e o próximo 
elemento. Cada registro é colocado na lista, que é ordenada de acordo com o índice da 
matriz. Para acessar a matriz, basta seguir as ligações entre os elementos. 

O seguinte registro poderia ser usado na criação de uma matriz dispersa para 
uma planilha eletrônica: 

t ype 

str120= stringC 128)1 
str9= stri ng[ 9 3: 

Ptr_Cel= A cel; 

cei = rpcord 

nowe_cel: strP; [contew o nome da célula } 
formula: strl2S; 

proximo: Ptr_Cei; (aponta para o proximo registro) 
anterior: Ptr_Cel; Caponta para o registro anterior) 
end í 


Neste exemplo, o campo Nome_CeI contém a seqüência de caracteres que indica o nome 
da célula, como Al, B34 ou Z19. A seqüência formula mantém a formula contida em 
cada posição da planilha. A seguir, serão apresentadas algumas funções que poderiam ser 
usadas numa planilha eletrônica, formada por uma matriz dispersa de lista encadeada. 
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(Existem muitas maneiras diferentes de fazer planilha eletrônica; os registros de dados e 
rotinas usadas aqui são apenas exemplos de técnicas de manipulação de matrizes 
dispersas.) As seguintes variáveis globais indicam o início e o fim da lista encadeada da 
matriz: 


primeiro,ultimo: Ptr_Cel; 

Quando você digita uma fórmula numa célula de uma planilha eletrônica 
qualquer, está, na realidade, criando um novo elemento na matriz dispersa. Se a planilha 
usar uma lista encadeada, então a nova célula será inserida na lista pela rotina 
Armazena^EDO, desenvolvida no capítulo anterior. (Como as rotinas em Pascal são 
entidades discretas, reutilizáveis, quase nenhuma mudança é necessária.) Aqui, a lista é 
ordenada pelo nome da célula, isto é, A12 vem antes de A13. 

function Rrwazena_EDO< item, primeiro: Ptr_Cel; 

va r ultimo: Ptr_Celi>: Ptr_Cei; 

C anazena dados e« lista encadeada dupla ordenada; 
retorna um ponteiro para o inicio da lista) 

v ar 

velho, topo: Ptr_Cel; 
feito: boolean; 
beg i n 

topo : =primeiro) 
velho : =ni1; 
feito: =PRLSE ; 

if pri»eiro=nil then 
begin (primeiro elemento da lista) 
item A .proxi mo := nil; 
ulti mo : = item; 
i tem A ,antenor:=nil; 

Rrmazena_EÜO:=ite»; 
end else 
beg i n 

while (primeiro <> n i 1 '• and í n o t feito > do begin 
if primeiro" .nowe < iter\noMe t-h.en begin 
velho : = pr i me i rc 
pnieiro:=prÍTfleiro" .proKiwoj 
end else begin (para o meio) 
if velho < > nil then begir. 
velho".prox i mo :=item» 
i te» A .proximo:=priweiro; 
primeiro^.anterior : = i te» ; 
item"' . anter ior :=velho; 

Rrwazena_E00:=topo; (mantem o mesmo inicio) 
f eito:=TRUE : 
end else begin 

item A .proxi mo :=primeiro; (novo primeiro elemento) 
item A .anter:or:=nil; 

Rrwazena_EDO:= item; 
feito:=TRUE; 


end; 
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end; 

end; Cwhile} 
if not feito then 
besi n 

ulti mo A , prox i mo i = i te* j ( para o f i *> 3 

i tem A .proxi»o:=ni1; 
i tem A .anterior:=ulti mo; 
ultimo:=item; 

Rnazena.EDO: =topo; 
end; 
end; 

end; CRrmazena_EDD3 

Para remover uma célula da planilha, você deve remover o registro 
correspondente da lista e liberar a área da memória, antes ocupada por aquela célula com o 
uso de Dispose. A função ApagaJ)E remove uma célula da lista, dado o nome da célula. 

function Rpaga_DE(primeiro: Ptr_Cel; chave: str9): Ptr_Cel; 
var 

temp y temp2: Ptr_Cel; 
feito: boolean; 
besin 

if primeiro A ,nome_cel=chave then begin Capaga o primeiro da lista) 
Rpasa_DE:=pri*eiro A .proxi mo; 
if temp A .proximo <> nil then begin 
temp : =pr iiiei ro A . prox imo; 
temp A .anterior:=ni1; 
end; 

Dispose( priieiro ); 
end else begin 
feito:=FRLSE; 
temp:=primeiro A .proxiio; 
temp2:=primeiro; 

while (temp <> nil) and (not feito) üo 
begin 

if temp A .nome_cel=chave then 
begin 

temp2 A .proximo :=temp A .prox imo; 
if temp*.proximo <> nil then 

temp A .prox imo A .anterior:=temp2; 
feito:=TRUE; 
ultimo:=temp A .anterior; 

Disposeí temp ); 
end else 
begin 

temp2:= temp; 
temp:=temp A .proximo: 
end; 
end; 

Rpaga_DE:=pri me iro; Cainda o mesmo inicio} 
if not feito then Writel_n( 'Nao encontrada. ' ); 
end; 

end; £Rpaga_DE3 
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A função Ácha localiza qualquer célula específica. Esta função é importante, 
pois muitas das fórmulas da planilha podem fazer referência a outras células; tais células 
devem ser encontradas e seu conteúdo atualizado. Acha realiza uma busca linear para cada 
item. Como vimos no Capítulo 3, o número médio de comparações numa busca linear é 
n/2 , onde n é o número de elementos da lista. Além disto, uma perda de eficiência ainda 
maior ocorre, pois cada célula pode conter referências a outras células da fórmula, que 
também deverão ser encontrados. Aqui está um exemplo de Ácha: 

functior, Rchaf célula : Ptr_Cel): Ptr_Cel: 
var 

c: Pt^_Celj 
beg i n 

c:=prineiroj 

whiie c < > nil do begin 

li c A . Nowe_Cel=celula A . Nowe_Cel then acna:=c 
else c:=c A .p^oximo; 

end? 

WriteLní 'Célula nao encontrada. ' ); 

Find:=ni1; 
end; C Find ) 


O processo de criação, manutenção e processamento de matrizes dispersas através 
de listas encadeadas possui esta grande desvantagem: uma busca linear é necessária para 
acessar cada célula da lista. Para possibilitar uma busca binária, precisaria ser 
acrescentada mais informação, aumentando o já crítico problema de falta de espaço na 
memória. Mesmo a rotina de armazenamento usa uma busca linear para encontrar a 
posição correta, onde a nova célula deve ser inserida. Estes problemas podem ser 
resolvidos pelo uso de uma árvore binária no lugar da lista encadeada. 


O USO DE ÁRVORES BINÁRIAS NA CRIAÇÁO DE MATRIZES DISPERSAS 


Uma árvore binária é basicamente uma lista duplamente encadeada. Sua maior vantagem 
em relação à lista está no aumento da velocidade das buscas, tomando muito mais rápidas 
as inserções e verificações. Se você quiser usar um registro de lista encadeada mas 
precisar também de buscas velozes, então o que procura é uma árvore binária. 

Para usar uma árvore binária no exemplo da planilha eletrônica, o registro célula 
deve ser modificado, do seguinte modo: 

Ptr_Cei= A celula; 
str9= stringC9D; 
str!2B= 5tring£1283; 




80 


Turbe Pascal Avançado 


celula= record 

No*>e_Cel: str9; 
formula: strl28; 
esquerdo: Ptr_Cel; 
direito: Ptr_Celi 

end; 


Você pode modificar a função Armazena_arv, vista no Capítulo 3, para que ela 
construa uma árvore baseada nos nomes das células. A função assume que o parâmetro 
New é um ponteiro para uma nova entrada na árvore. 

function flrmazena_arv<raiz,r , New: Ptr_Cel): Ptr_Cel; 
bea i n 

if r=nil then 
begi n 

Novo A ..esquerdo :=ni1 ; 

Novo A .direi to:=nilj 

if Novo A .No*e_Cel < raiz A .Nowe_Cel then raiz A .esquerdo:=Novo 
else raiz A .direito:=Novo; 

Rr»azena_arv:=Novoj 
end else 
beg i n 

if Novo A ,Nowe_Cel < r A .Nowe_Cel then 

Rr»azena_arv:=Rriiazena_arv< r > r A . esquerdo, dado ) 
else Rr»azena_arv:=Rrwazena_arv< r, r A .direito>dado ); 
end; 

end; i Rrwazena_arv} 

Os dois primeiros parâmetros de Annazena_arv servem de ponteiro para o nó 
raiz, e o terceiro parâmetro como ponteiro para a nova célula. Ànnazena_arv produz um 
ponteiro indicando a raiz. 

Para apagar uma célula da planilha, você v deve modificar a função Apaga_Arv, 
para que esta passe a aceitar o nome da célula como chave: 

function Rpasa_Rrv( raiz: Ptr^Cel; chave: str9): Ptr_Cel; 
var 

temp j tewp2: Ptr_Cel; 
begin 

if raiz A .Nowe_Cel=chave then 
begin C apaga a raiz3 

if raiz A .esquerdo=raiz A .direito then 
begin Carvore vazia} 

Oi spose< raiz ); 

Rpaga_Rrv:=ni1; 

end 

else if raiz A .esquerdo=ni1 then 
begin 

tewp:=raiz A ,direito; 

Dispose< raiz ); 

Rpaga_Rrv:=te*p; 

end 

else if raiz A .direito=ni1 then 
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begi n 

temp:=raiz A .esquerdo; 

Dispose(raiz ); 

Bpaga_Rrv:=te»p; 

end 

else begin Cambos os ramos presentes} 
tewp2:=raiz A .direito; 
temp:=raiz A .esquerdo; 

while temp A .esquerdo <> nil do tewp : =temp A .esquerdo; 
temp A .esquerdoi=raiz A .esquerdo; 

D i spose( raiz ); 

Rpaga_Rrv:=temp2; 

end; 

end 

else begin 

if raiz A ,Nome_Cel < chave then 

raiz A .direi to;=Rpaga_flrv< raiz A .direi to f chave ) 
else raiz A .esquerdoi=Rpaga_Rrvf raiz A . esquerdo.chave); 
Rpaga_Rrv:=raiz; 


end; CRpaga_Rrv3 


Por fim, a função Busca modificada pode ser usada para localizar rapidamente qualquer 
célula da planilha: 

function Busca(raiz: Ptr_Cel; chave; str9): Ptr_Cel; 
begin 

if raiz <> nil then 
begin 

while ( r a i z A . No»e_Cel <> chave) and (raiz <> nil) do 
begi n 

if raiz A .Nome_Cel < chave then raiz;= A ,esquerdo 
else raiz;=raiz A .direito; 
end; 
end; 

Busca:=raiz; 
end; CBusca 3 

A grande vantagem da árvore binária sobre a lista encadeada, como já foi dito, é 
o grande aumento na velocidade das buscas. A busca seqüencial requer, em seu caso 
médio, n/2 comparações, oode né o número de elementos da lista; a busca binária requer 
apenas log 2 /z comparações. 


O USO DE MATRIZES DE PONTEIROS 
NA CRIAÇÃO DE MATRIZES DISPERSAS 


Suponha uma planilha eletrônica, cujas dimensões fossem 26 x 100(A1 a Z100), num total 
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de 2.600 elementos. Então, em teoria, a seguinte matriz de registros poderia ser usada para 
conter as entradas da planilha: 


st,r9= s-trinsC9 3; 
str!2B= strins[12B3; 


Ptr_Cel= A celula; 
celula= recDrd 

No»e_Cel: str9; 

£ oriula: strl2B; 

end; 

var 

*p : arrayC126003 o£ célula; 

Entretanto, 2.600 células multiplicadas por 128 (o tamanho do campo formula) vão 
requerer 332.800 bytes de memória, e isto numa planilha bastante pequena. Obviamente, 
isto não é nada prático. Uma alternativa seria criar uma matriz de ponteiros de registros. 
Este método requer muito menos armazenamento permanente que a criação de uma matriz 
inteira, e oferece uma performance muito superior aos dois outros métodos vistos até aqui. 
A declaração necessária para esta técnica é a seguinte: 

const 

TRhRNH0= 2600: 


type 

str9= stringC 9 ]; 

5 tr128= stringC1203; 

celula= record 

Nowe_Cel: str9; 
Corwula: strl28; 
end; 

Ptr_Cel= A celula; 


var 

«Pí arrayC 1. , TRIiRNHO 3 of Ptr_Cel; 

Esta matriz menor será usada para conter ponteiros que indiquem os dados digitados na 
planilha pelo usuário. A cada nova entrada de dados, um ponteiro, indicando para a 
informação da célula, é armazenado na matriz. A Figura 4-2 mostra qual seria a aparência 
deste processo na memória, com a matriz de ponteiros servindo de alicerce para a matriz 
dispersa. 


Antes de usar a matriz de ponteiros, você deve inicializar cada um de seus 
elementos para nil, o qual indica que não há célula preenchida naquela posição. O 
procedimento a seguir faz isto: 
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procedure InicMàt; 
va r 

t: integer ; 


begi n 

for t=l to TRMRNHD do wpft3:=n i 1j 
end; CInicMat 3 


a 



Figura 4-2 Uma matriz de ponteiros servindo de alicerce para a matriz dispersa. 


Antes de poder escrever o procedimento Armazena, você precisará de uma função 
chamada Acha_IncL, que retoma o índice da matriz de ponteiros, dado o nome da célula. 
AchaJEnd assume que o nome da célula é formado por uma letra maiuscula, seguida de 
um número inteiro (B34, 09 etc.). Àchajnd é mostrada abaixo: 

function Rcha_Ind(i: Ptr_Cel>: integer; 
var 

loc,tewp.codigo: integerj 
t: 5trP; 

beg i n 

loc:=ordfi A .Nowe_Celtl3)-ord('P' 3 j 
t: =cop y( i A . Now*e_Ce J ,2,9 )} 
val(t,tenp,codigo); 

Rcha_Ind:=loc+( tewp*26); 
endj ÍRcha_Indp 
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Esta função informa ao procedimento Armazena qual endereço da matriz de ponteiros 
deve ser usado para cada célula. Como você pode notar, o cálculo do índice é simples e 
rápido, sem necessitar de buscas ou verificações. Este processo é, às vezes, chamado de 
hash direto, porque o dado a ser armazenado produz diretamente o índice do endereço de 
armazenamento. Quando um valor é digitado numa determinada célula, o nome da célula 
produz um índice para a matriz mt. Este índice é convertido num numero por Achajnd, e 
armazenado por Armazena: 

procedure Rmazenaí Novo: Ptr_cel )> 
var 

loc: integerj 
begi n 

loc:= Rcha_Ind<Novo ); 

if loc > TRMRNHO then WriteLrK Tora dos limites, ' ) 

else *p[loc3 : =Novo; 
end; CRmazena} 


Como cada nome de célula é único, cada índice é único. Como uma seqüência 
ASCH é usada, cada ponteiro é armazenado na posição correta da matriz. Comparado à 
lista encadeada, este método é muito menor e mais simples. 

A função Apaga também fica menor. Quando chamada com um índice de célula, 
ela apaga o ponteiro correspondente ao elemento e libera a memória daquele ponteiro para 
o sistema: 

procedure Rpagaír_celula: Ptr_Cel )> 
var 

loc: integerj 
beg in 

loc:=Rcha_Ind<r_celula_ )j 

i£ loc > 10000 then UriteLní 'For a dos linites,') 

else 

begi r 

Dispose< r_celula ): 
üpC loc 3:=ni1j 
end; 

erd; C Rpaga 3 


Outra vez, se comparada à lista encadeada ou à árvore binária, esta rotina é muito mais 
rápida e simples. 

Entretanto, lembre-se de que a matriz de ponteiros ocupa espaço na memória 
para cada posição, seja esta posição usada ou não, o que pode representar uma séria 
limitação para algumas aplicações. 
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HÀSHING 


Hashing é o nome dado ao processo de se extrair, da própria informação a ser armazenada, 
o elemento correspondente da matriz índice. 0 índice assim gerado é chamado hash. 
Hashing tem sido aplicado a arquivos de disco, para reduzir o tempo de acesso. 
Entretanto, o mesmo método básico pode ser aplicado na criação de matrizes dispersas. No 
método de matrizes de ponteiros, apresentado no exemplo anterior, uma forma de hashing 
chamada hashing direto estava envolvida. No hashing direto , cada chave aponta para uma 
e apenas uma posição da matriz. Isto é, cada chave é transformada num índice unico. (Na 
verdade, o método de matriz de ponteiros não requer um esquema de indexação direta; 
porém, no problema de planilha eletrônica este era o caminho mais óbvio.) Na prática, 
poucos são os esquemas de indexação direta existentes, e um método mais flexível é 
necessário. Nesta seção, veremos como o processo de hashing pode ser generalizado, 
tomando-se um instrumento flexível e poderoso. 

A esta altura, deve estar claro que, mesmo no mais rigoroso dos ambientes, nem 
todas as células de uma planilha eletrônica serão usadas. Neste exemplo, assumiremos que, 
na imensa maioria dos casos, não mais de 10% das posições potenciais serão realmente 
ocupadas. Isto quer dizer que, se as dimensões da matriz lógica da planilha forem de 
26 x 100 (2.600 posições), apenas 260 posições serão usadas num dado momento. 
Portanto, a maior matriz física necessária para conter todas as células ocupadas precisará 
ter apenas 260 elementos. O problema então é mapear e acessar a matriz lógica a partir da 
matriz física. Isto pode ser feito através de uma cadeia de hash. 

Quando uma fórmula é digitada numa célula da planilha (a matriz lógica), a 
posição da célula, dada por seu nome, é usada para produzir um índice (um hash) na ma¬ 
triz física. Digamos que o nome da matriz física seja mt. O índice é obtido convertendo o 
nome da célula num número, exatamente como no exemplo da matriz de ponteiros. Este 
número é então dividido por 10 para produzir um ponto inicial de entrada na matriz (pois 
esta só tem 260 posições). Se a posição dada pelo índice estiver vazia, o índice e o valor 
serão armazenados ali. Caso contrário, ocorre uma colisão. Uma colisão ocorrerá quando o 
nome de duas células produzir o mesmo hash. Isto fará com que os índices produzidos por 
ambas aponte para o mesmo elemento da matriz física. Neste caso, um elemento vago será 
procurado na matriz mt. Uma vez encontrada uma posição vazia, a informação é 
armazenada ali e um ponteiro é colocado na posição original, indicando a posição real da 
célula. A Figura 4-3 exemplifica a situação. 
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Figura 4-3 Um exemplo de hashing. 


Para encontrar um elemento na matriz física, dado o nome da célula na matriz 
lógica, deve-se primeiro transformar este nome no hash . A posição gerada pelo hash é 
então verificada na matriz física. Se o índice da matriz lógica, ali armazenado, for o que se 
está procurando, a busca termina. Caso contrário, a cadeia de hash é seguida até o índice 
lógico correto ser encontrado ou o final da cadeia atingido. 
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A aplicação deste processo ao exemplo da planilha requer, inicialmente, a 
definição da seguinte matriz de registros, que funcionará como a matriz física. 

const 

TRMRNHO= 260: 
t ype 

5 Lr 9= stringl 9 ] j 
5trlZB= str j r>p[ 12B ] 

c e 1 u 1 a = r e c s - b 

Now»e_Cel : sir 1 ? ; 
formula: strl28; 
próximo: i ti tege rí 


var 

Mat: arrayíl. .TRMRNHO ] of Ptr_Cei: 
nome: célula 


Esta matriz deve ser previamente inicializada. O procedimento seguinte faz com que todos 
os campos Nome_Cel passem a conter a palavra “vazia” (nome o qual, por definição, 
nenhuma célula terá), indicando um elemento vazio. O -1 no campo proximo indica o fim 
da cadeia de hash. 

procedure InicMat# 
var 

t: ‘ i n t e 3 e r ; 
begin 

for t=0 Lo TRMRNHO do 
beg i n 

MatCt3.No*e_Oel:= 'vazia*J 

Ma t-L t ].aroTÍ»o! s “l : 

end ) 

end; [ InicMat !■ 


O procedimento Armazena chama o procedimento IndLHash, que, por sua vez, 
obtém o índice correto para a matriz mt. Se a posição indicada pelo valor remodelado 
estiver ocupado, a rotina procurará a primeira posição livre existente. Ela faz isto seguindo 
a cadeia de hash até o fim, e encontrando então a primeira posição livre. Quando tal 
posição é encontrada, o valor do elemento e sua posição na matriz lógica são ali 
armazenados. O índice lógico do elemento é armazenado porque será necessário quando o 
elemento for novamente acessado. 
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C calcula e armazena □ hash 3 

function Ind_Hashí i: str-9 '): i^teger; 
v ar 

loc. teiwp . codigo : integer : 
t: strR; 

begiri 

loc : =ord( i C 1 ] )-ord» ' R ' >: 
t: = copy( i » 2 f 9 >; 
vai( t , tewp,codígo 

Ind_Hash : =( loc*26+temo ) di - 10; 

e n á í C Ind_Hash; 


procedure Rrruazenaí No^o: célula >; 
var 

loc.i: integer; 


begm 

iüc: = Ind_Hashí Novo.Nome_Ce 1 >; 

i £ loc I TRMRNHO then UriteLm' 'Fora dos limite?.' > 
e 1 se 

begi.n { armazena em loc. se este estiver 

livre ou no caso de atuaiizacao de dado' 


lí <:( MatCloc j.N ome_Ce 1= 'vazia ) or 

i MatCloc 1.Nowe_Cel= Novo 4 Nome_Cel 5) thpn 
beg i n 

MatClocl,Nome_Cel:= N o v o .No m e _ Ce1; 

MatClocl.rormula:=Novo,formula] 
end else Cacha urna entrada livre} 
begin 

C segue qualquer cadeia existente ate o C i m } 
while(MatCloc3.prox i mo < > -1 ) do 
loc:=MatC locl.proximo.: 

[agora acha um endereço livre} 
i : = loc : 

while(í i < TRMRNHO’> and í MatC i ],Nome_Cel < > 'vazia ? ■ 
do i : = i +1 

i£( i =TRMRNH0 ) then 
beg i n 

• Wri teLn( 'Nao pode ser colocado na matriz de hash. ; 
end else 

begin Carmazena num enderece livre e atualiza a cadeia} 
MatCi].Nome_Cel:=Novo.Nome_Cel; 

MatC i ].formula:=Novo,formula; 

MatC loc 1. prox i mo : = i í cadeia } 
end; 
end; 
end; 

end: C Rrmazena3 


Achar o conteúdo de um elemento requer primeiro que o hash deste elemento 
seja calculado. Então, o índice ldgico armazenado na posição da matriz física indicada 
pelo hash é comparado ao índice da matriz lógica pedido. Se forem iguais, o conteúdo 
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procurado foi encontrado. Caso contrário, a cadeia de hash é seguida até que o elemento 
procurado ou um -1 sejam encontrados. Um -1 indicaria que o elemento procurado não se 
encontra na matriz física. A função Acha realiza esta busca: 

COa a localizacao física da célula} 
function Rcha<cnawe: célula): integer; • 
var 

loc: integer; 
beg i n 

loc:= Rcha I ndex< cnowe . Na*»e_Ce 1 ); 

wh i le((MatCloc3.NoTne_Cel <> cno«e.No»e_Cel> and 
(loc <> -1)) do loc:=MatCloc3.next; 
if(loc=-l) then begin 

WriteLní 'Nao encontrada'); 

Rcha:=-l; 

end else Rcha:=locj 

Writeí 'R célula esta e* ' ): WriteLn(loc ); 
end; C Rcha } 

O esquema de hashing, apresentado aqui, é extremamente simples. Na prática 
usam-se métodos muito mais sofisticados. E comum, por exemplo, que hashes secundários 
e até terciários sejam calculados nos casos de colisão, antes que a cadeia de hash seja 
usada. O conceito básico, porém, será sempre o mesmo. 


A ANÁLISE DO HASHING 

No melhor caso do hashing (muito raro), cada índice físico dado pelo hash é único, e o 
tempo de acesso é próximo do tempo de acesso da indexação direta. Isto é, nenhuma 
cadeia de hash é criada e as verificações são basicamente acessos diretos. Raramente será 
este o caso, pois os íhdicès lógicos estarão distribuídos por todo o espaço lógico de 
indexação. No pior caso (também muito raro), o esquema de hash degenerará numa lista 
encadeada. Isto ocorrerá se todos os hashes tiverem valores idênticos. No caso médio, o 
mais comum, o tempo de acesso será igual ao tempo de acesso da indexação direta 
multiplicado por uma constante qualquer que seja proporcional ao tamanho médio das 
cadeias de hash. A vantagem do uso do hashing na manutenção de uma matriz dispersa é 
o fato do algoritmo de hashing impedir a formação de cadeias de hash muito longas. O 
hashing pode ser melhor explorado quando o numero de posições da matriz a serem usadas 
for pie viamente conhecido. 


DECIDINDO SOBRE O MÉTODO A SER UTILIZADO 


A decisão sobre o método (lista encadeada, árvore binária, matriz de ponteiros ou hashing ) 
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de criação de uma matriz dispersa a ser usado deve levar em consideração a eficiência no 
uso da memória e a velocidade. 

Quando a matriz for muito dispersa, os melhores métodos serão a lista 
encadeada e a árvore binária, pois eles só alocam memória para elementos em uso. Os 
encadeamentos requerem uma pequena quantidade de memória para serem mantidos, em 
geral desprezível. O método da matriz de ponteiros implica a existência de um ponteiro 
alocado para cada elemento da matriz lógica, esteja o elemento sendo usado ou não. Ou 
seja, não só toda a matriz de ponteiros deve estar armazenada na memória como também 
deve haver espaço o bastante para uso do programa. Esta pode ser uma séria restrição para 
alguns programas. Calculando a memória livre restante, você poderá decidir se este 
método pxxie ser usado por seu programa ou não. 

Em termos de uso de memória, o hashing se encontra entre os métodos de lista e 
o de matriz de ponteiros. Apesar de exigir a presença de toda a matriz física todo o tempo, 
esta matriz física será sempre menor que a matriz de ponteiros, que requer um ponteiro 
para cada px)sição da matriz lógica. 

Se a matriz lógica estiver bastante tomada, entretanto, a matriz de ponteiros fará 
um uso melhor da memória. Tanto a lista encadeada como a árvore binária usam dois 
ponteiros, enquanto a matriz de ponteiros usa ap>enas um. Por exemplo: se uma matriz 
lógica de 1.000 elementos estiver completa, e se cada ponteiro ocupar 2 bytes na memória, 
tanto a lista encadeada como a árvore binária usarão 4.000 bytes para seus ponteiros. No 
mesmo caso, a matriz de ponteiros usará apenas 2.000 bytes, economizando 2.000 bytes. 

O método mais rápido é o da matriz de ponteiros. Como no exemplo da planilha, 
quase sempre existe um método fácil de associar a matriz de ponteiros à matriz lógica. Por 
este método, o acesso a uma matriz dispersa fica quase tão rápido quanto o acesso a Uma 
matriz normal. A lista encadeada é muito mais lenta, pois utiliza buscas lineares para 
localizar elementos na matriz. E mesmo se mais informação fosse adicionada à lista 
encadeada, para permitir acesso mais veloz, tal acesso ainda seria mais lento que o acesso 
quase direto da matriz de ponteiros. Mesmo a árvore binária parece uma tartaruga quando 
comparada à matriz de ponteiros. 

Se o algoritmo de geração do hash for bem escolhido, o hashing poderá se 
tomar mais rápido que a árvore binária, mas nunca será mais rápido que a matriz de 
pxmteiros. 

Sempre que possível, o método da matriz de pxmteiros deve ser usado. Se, 
entretanto, a memória for um fator crítico, você poderá ser obrigado a usar a lista 
encadeada ou a árvore binária. 
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BUFFERS REUTILIZÁVEIS 


Quando houver pouca memória disponível, a alocação dinâmica pode ser usada no lugar 
de variáveis normais. Imagine um programa que contenha dois processos, A e B. 
Assumiremos que A requer 60% da memória livre e B requer 55% da memória livre para 
serem executados. Se A e B alocarem memória a partir de variáveis locais, A nunca 
poderá chamar B ou vice-versa, pois mais de 100% da memória seria necessária. Se A 
nunca chama B, não há problema; isto até você querer que A chame B. A única maneira 
de fazer isto é usando armazenamento dinâmico para ambos, A e B, e liberando a memória 
antes que um processo chame o outro. Ou seja, se tanto A quanto B usam mais da metade 
da memória livre disponível e A deve chamar B, ambos devem usar alocação dinâmica. 
Deste modo, ambos os processos terão a memória necessária no momento desejado. 

Imagine que existam 100.000 bytes de memória livre restantes num computador 
que esteja executando um programa onde existam os seguintes procedimentos: 

procedure B: foward.1 

procedure R; c 

v ar 

a : arr a y[ 1 . . óOOOO 3 of cRar; 


bes i r< 


b; 


end > 

procedure Bj 
var 

b:arraytl.,550003 of charj 
begi p 


end; 

A e B têm variáveis locais, cada uma exigindo mais da metade da memória disponível. B 
não poderá ser executado, pois não há espaço para alocar os 55.000 bytes necessários à 
matriz b. 
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Este tipo de problema muitas vezes é insolúvel, mas em algumas situações ele 
pode ser contornado. Se A não precisar manter o conteúdo da matriz a enquanto B estiver 
sendo executado, A e B poderão dividir o mesmo espaço da memória. Isto pode ser feito 
alocando espaço para as matrizes a e b dinamicamente. A então liberaria a memória antes 
de chamar B e a realocaria mais tarde. Os procedimentos teriam o seguinte formato: 

procedure Bjf oward; 

procedure R; 

var 

a: A array[ 1. .óOOOO ] o£ charj 

beg i n 

New(a )) 


Oisoose(a); (Libera meworia para 3} 
Br 

New( a )j {recupera a Tneworia} 


Disposeía >: 

e n d i 

procedure 3 j 
v a r 

br^arrayCl,.55000] o£ cHar; 

Deg i ti 

Neu( b j > 


end : 


Ois poseib ) í 


Apenas o ponteiro a existe enquanto B é executado. Apesar de só ser usada ocasional¬ 
mente, esta técnica é, quase sempre, o único modo de resolver este tipo de problema. 


O DILEMA DA 6 ‘MEMÓRIA DESCONHECIDA 55 


Se você é um programador profissional, provavelmente já se encontrou frente ao dilema da 
“memória desconhecida”. Ele ocorre quando você escreve um programa que tenha parte 
de sua performance baseada na quantidade de memória existente em qualquer computador 
onde o programa possa ser executado. Planilhas eletrônicas, malas diretas na RAM e 
programas de ordenação são o tipo de programa que pode ter este problema. Por exemplo, 
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um programa de ordenação, capaz de manipular 10.000 endereços num computador de 
256K, pode ser capaz de trabalhar com apenas 5.000 endereços numa máquina de 128K. 
Se o programa deve funcionar em computadores de memória previamente desconhecida, 
será muito difícil determinar o tamanho ótimo da matriz que conterá a informação a ser 
ordenada, isto por duas razões: ou o programa não funcionará em máquinas cuja memória 
seja muito pequena para conter a matriz, ou você criará a matriz para o pior caso, não 
permitindo a usuários que tivessem máquinas com memória maior tirar proveito de tal 
memória. A solução é utilizar alocação dinâmica para conter a informação. 

Editores de texto são bons exemplos do dilema da memória e de sua solução. Na 
maioria dos editores de texto, o número de caracteres que pode ser mantido não é fixo. A 
memória disponível do computador é usada para armazenar o texto digitado pelo usuário. 
Por exemplo, para cada linha digitada, é alocada a memória necessária e uma lista 
encadeada é mantida. Quando uma linha é apagada, a memória é devolvida ao sistema. 
Este editor poderia ser criado com o uso do seguinte registro para cada linha: 

P t r _L i rv= ''linha; 
strüO= 5 tnng [80 J ; 

1 inha= record 

texto: str0O; (contem as 1ínhas) 
num: integer; 

próxima: Ptr_Lin; (ponteiro para o proximo registro) 
anterior: Ptr_Lin; (ponteiro para o'registro anterior) 

end ; 

Este registro sempre aloca memória o bastante para que cada linha possa ter até 80 
caracteres de comprimento. Num ambiente real, apenas o comprimento exato de cada linha 
seria alocado, e o restante usado apenas se a linha fosse alterada. O elemento num 
mantém o número de cada linha do texto. Isto permite que a função Armazena_EDO seja 
usada para criar e manter o arquivo de texto como uma lista encadeada. 

O programa completo de um editor de texto simples é apresentado a seguir. Ele 
permite que linhas sejam inseridas ou apagadas em qualquer ponte, dado o número da 
linha. O texto pode também ser listado e gravado em arquivo de disco. 

O editor tem sua operação baseada numa lista encadeada e ordenada de linhas de 
texto. A chave de ordenação é o número de cada linha. Texto pode ser inserido e apagado 
facilmente, bastando para isto especificar o número da linha. A única função mais difícil 
de entender é Renumera, que renumera o elemento num quando uma linha é inserida ou 
apagada. 

Neste exemplo, a quantidade de texto que o editor pode conter está diretamente 
baseada na quantidade de memória livre no sistema do usuário. Assim, o editor usa 
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automaticamente qualquer memória adicional, sem precisar ser reprogramado. Esta é talvez 
a razão mais importante a favor do uso de alocação dinâmica para resolver dilemas de 
memória. 


O programa, como mostrado aqui, é bastante limitado. Porém, suas rotinas de 
apoio à edição de texto são sólidas. Você pode expandi-lo.para uso pessoal. 


program -d_Texto; 
type 

Ptr_Lin= '■'linha; 
strBO= string[80]; 

linha= record 

texto: strBO; {contem as linhas} 
num: integer; 

proximo: Ptr_Lin; {ponteiro para o proximo registro} 
anterior: Ptr_Lin; {ponteiro para o registro anterior} 

end ; 

Dado= 1in ha; 

arq= file of linha; 

var 

texto: arq; 

primeiro,ul timo : Ptr_Lin; 
feito: Doolean; 
fnome: strBO; 


functior Menu: char; {retorna a opcao do usuário} 
var 

car: cnar; 


begin 

Write_n('l. Escrever'); 

WriteLn('2. Apagar uma linha'); 
Writei_n('3. Mostrar o arquivo'] 
WriteL_n('4. Gravar'); 
Writeí_n('5. Ler'); 

Writetn('6. Fim'); 
repeat 

WriteLn; 

Write('Digite sua opcao: '); 
Read(car); car: =UpCase(car ) ; 
until (car >= '1') and (car <= 
Menu:=c ar; 
end; {Menu} 


WriteLn; 
'à- ) ; 


function Acha(lnums integer): Ptr__Lin; 
var 

i: Ptr_Lin; 
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begin 

i: -pr imeiro; 

Acha:=ni1; 

whileíi <> nil) do begin 

if lnum= i A .nufn then Acha:=i ; 
i:= i~.proximo; 
end; 

end; {Acha} 

procedure Renumera(inum, incr: integer); 
var 

i: Ptr_Lin; 
begin 

i:=Ac ha(lnum); 
while(i <> nil) do begin 
i~ . num s = . nu(R+inc r ; 

i:=i / '. proximo; 
end ; 

end; {Renumera) 

f unction ‘ Armazena__EDO( item, primeiro: Ptr_Lin; 

var ultimo: Ptr_Lin): Ptr_Lin; 

{armazena dados em lista ordenada} 
var 

velho, topo: "'linha; 

■feito: boolean; 
begin 

topo:=primeiro; 
velho:=nil; 
feito:=FALSE; 

if primeiro=nil then ‘ 

begin {primeiro elemento da lista) 
i tem"*. prox imo : = nil; 
u1 timo :=item; 
i tem"'. anterior : *n i 1 ; 

ArmazenaJEDQ:=item; 
end else 
beg in 

while (primeiro <> nil) and (not feito) do begin 
if primeiro"'.num < item^.num then begin 
velho:=primeiro; 
pr imeiro: =primei ro"'. proximo; 
end else begin {no meio) 

if velho <> nil then begin 
velho".proximo:=item; 
item".proximo:=primeiro; 
primeiro".an terior:=item; 
item".an terior:=velhb; 

Armazena_EDQ:=topo; (mesmo inicio) 
feito:=TRUE; 
end else begin 

i tem"'. proximo: =pr imei ro; (novo primeiro elemento) 
item".anterior:=nil ; 

Armazena_EDO:= item; 
feito:=TRUE; 

end ; 
end ; 
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end; {while> 
if not feito then 
begin 

u1timo''.proximo:= 1 tem ; (no fim) 

item~.proximo:=nil; 
item A .an terior:=ultimo ; 
ultimo:=item; 

Armazena_EDO:=topo; 
end ; 
end ; 

end; { Armazena__EDO ) 

function Apaga_DE(primeiro: Ptr_Lin; key: integer): Ptr_Lin; 
var 

temp, temp2: Ptr_Lin; 
feito: boolean; 
begin 

if primeiro A .num=key then 

begin (apaga o primeiro da lista) 

Apaga_DE:=primeiro A .proximo; 
if temp A .proximo <> nil then begin 
temp:=primeiro A .proximo; 
temp 7 '. anterior : =ni 1 ; 
end ; 

Dispose(primeiro); 
end else begin 
feito:=FALSE; 
temp:=primeiro A -proximo ; 
temp2:=primeiro; 

while (temp <> nil) and (not feito) do 
begin 

if temp A .num=key then 
begin 

temp2^-proximo: = temp / '.proximo; 
if temp''. prox imo <> nil then 

temp'' . pro ximo^.anterior :=temp2; 
feito:=TRUE; 
ul timo := temp''. anterior ; 

Disposeí temp) ; 
end else 
begin 

temp2:=temp; 
temp : = temp'' . proximo; 
end ; 
end ; 

Apaga_DE:=primeiro; (mesmo inicio) 
if not feito then WnteLn ( ' Nao encontrada') 
else Renumera(key+1,-1) ; 
end ; 

end; (Apaga_DE} 

procedure Remove; 
var 

num: integer; 
begin 

Write( Linha a ser apagada: ); 

Read(num); WriteLn; 
primeiro : =Apaga_DE (primeiro, num ) 
end; (Remove) 
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procedure Digitacao; 
va r 

item! Ptr_Lin; 
num: integer; 
feito: boolean; 
begin 

feito:=FALSE; 

Wri te ('Numero da primeira linha: '); 

Read(num); WriteLn; 
repeat 

New(item); (abre um novo registro} 
item A .num:=num; 

Write(item A .num, ':'); 

Read(item A .texto); WriteLn; 

if length(item A .texto)=0 then feito:=TRUE 
else begin 

if Acha(num) <> nil then Renumera(num,1); 
primeiro:=Armazena_EDQ(item,primeiro,ul timo ); 
end ; 

num:=num+l; - 
until feito; 
end; (Enter} 

procedure Mostra( primeiro: Ptr_Lin); 
begin 

while primeiro <> nil do 
begin 

Write(primeiro A .num, :' ) ; 

WriteLn ( primeiro 7 *' .texto) ; 
primeiro:=primeiro A .proximo; 
end ; 

WriteLn; 
end; (Mostra) 

procedure Gravaívar f:arq; primeiro: Ptr_Lin); 
begin 

WriteLn(*saving file); 

ReWrite(f); 

while primeiro <> nil do 
begin 

Wri te (f,primeiro^); 
primeiro:=primeiro A .proximo; 
end; 

end; {Grava} 

function Le(var f: arq) : Ptr_Lin; 

(retorna um ponteiro para o primeiro da lista) 
var 

temp: Ptr_Lin; 
begin 

WriteLn('Le file); 

Reset <f)j 

while primeiro <> nil do 
begin (libera memória} 

temp:*priroeiro~.proximo; 

Dispose(primeiro); 
primeiros*temp; 
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end ; 

ultimo:=níl; primeiro: s ni1; 

while not eof(f) do 

begin 

New(temp); 

Read ( f , temp'') ; 

primeiro s =Armazena_EDO ( temp , primei ro, u 1 timo ) ; 
end j 

Le i=pn»eiro; 
end; (Le) 

begin 

pri(neiros=nil ; (lista inicialmente vazia) 
ultimo:=ni1 ; 
fei to:=FALSE; 

WriteCNome do arquivo: ); 

Read(fno®e); 

WriteLn; 

assignCtexto,fnome); 
repeat 

case Menu of 

'1': Digitacao; 

'2': Remove; 

*3’: Mostra(primeiro) ; 

'4': Grava(texto,primeiro); 

'5': primeiro:=Le(texto); 

<b': feito:=TRUE; 

end ; 

until feito=TRUE; 
end . 


FRAGMENTAÇÃO 


Fragmentação ocorre quando pedaços de memória livre ficam presos entre blocos de 
memória alocada. Apesar da quantidade de memória livre ser, em geral, suficiente para dar 
conta de alocações, pode ocorrer de os pedaços individuais serem pequenos demais, ainda 
que representem memória suficiente se somados. A Figura 4-4 mostra como uma 
seqüência de News e Disposes pode gerar este problema. 

Alguns tipos de fragmentação são evitados porque as funções de alocação 
dinâmica associam regiões adjacentes da memória. Por exemplo, se as regiões da memória 
A, B, C e D (mostradas a seguir) forem alocadas e então as regiões B e C forem liberadas, 
B e C teoricamente poderão ser combinadas, pois estão lado a lado. Porém, se B e D 
forem liberadas, não haverá como associá-las, pois C está entre elas. 
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A.B,C.D : Mnteger; 
W.X.Y.Z : "real; 


Memória livre 


new(A) 

A 


0 






n 

new(W) 

* 

w 










new(B) 

a 

w 

B 










new(C) 

A 

w 

B 

c 










new(X) 


w 

JL 

c 

X 










new(Y) 

H 

1 

w 

E 

c 

X 

Y 

J 









Dispose(B) 

E 

1 

w 

r 

E 

X 

, Y 

J 


new(Z) Comando falha porque não há mais memória contígua 
suficiente no heap. 


Figura 4-4 Fragmentação numa alocação dinâmica. 


A 

b 

c 

D 


Como B e D foram liberadas enquanto C estava alocada, você pode imaginar 
que basta mover o conteúdo de C para D, e então combinar B e C. O problema é que seu 
programa não teria meios de saber que o conteúdo de C foi movido para D. 

Um modo de evitar fragmentação excessiva é sempre alocar quantidades iguais 
de memória; deste modo, todas as regiões liberadas poderão ser realocadas posterioimente, 
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e toda a memória livre poderá ser usada. Se isto não for possível, tente limitar-se a uns 
poucos tamanhos diferentes. Isto pode, algumas vezes, ser conseguido pela compactação 
de várias pequenas alocações numa só grande alocação. Nunca aloque mais memória que o 
necessário, apenas para evitar a fragmentação; a memória assim perdida é muito maior que 
o ganho obtido. Existe uma outra solução: durante a execução do programa, grave todas as 
informações num arquivo de disco temporário, libere toda a memória e leia as informações 
de volta. Os espaços existentes serão eliminados na leitura das informações a partir do 
disco. 


ALOCAÇÃO DINÂMICA E INTELIGÊNCIA ARTIFICIAL 


Apesar de não ser uma linguagem específica de inteligência artificial (IA), o Pascal pode 
ser usado em algumas experiências. Um traço comum a muitos programas de inteligência 
artificial é a existência de uma lista que o próprio programa cuida de aumentar, quando ele 
“aprende” algo novo. Numa linguagem como LISP, considerada a principal linguagem de 
inteligência artificial, a própria linguagem mantém a lista. Em Pascal, é necessário 
programar estes procedimentos, usando listas encadeadas e alocação dinâmica. Apesar de 
simples, o exemplo mostrado aqui pode ser aplicado a outros programas “inteligentes” 
mais sofisticados. 

Uma área interessante da IA é aquela dedicada à criação de programas que 
parecem comportar-se como seres humanos. O famoso programa ELIZA, por exemplo, 
parecia ser um psiquiatra. Seria ótimo ter um programa de computador capaz de conversar 
sobre qualquer assunto; um programa para rodar nos momentos de cansaço e solidão! O 
exemplo usado nesta seção é uma versão extremamente simples de tal programa. Ele 
utiliza palavras e as definições destas palavras para manter uma conversa simples com o 
usuário. Um artifício muito comum nos programas de IA é a ligação entre um item de 
informação e seu significado; neste caso, o programa liga palavras a suas definições. O 
registro a seguir mantém cada palavra, sua definição, sua função gramatical e sua 
conotação: 


Ptr_Vocab= ""Vocab; 
str0O= stringCBO]; 
str30= stringC30]; 

vocab= record 

tipo: char; 
conotacao: char; 
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palavra: str30; 
def: str80; 

proximo: Ptr_Vocab; {aponta para o proximo registro) 
anterior: Ptr_Vacab; (aponta para o registro anterior) 

end ; 


No programa, você digita uma palavra, sua definição, sua função e sua 
conotação, boa, má, ou indiferente. Para manter este minidicionário, uma lista encadeada é 
criada, usando alocação dinâmica. Àrmazena_EDG cria e mantém uma lista duplamente 
encadeada e ordenada no dicionário. Após preencher o dicionário com algumas palavras, 
você pode começar a conversar com o computador. Você digita uma sentença, por 
exemplo, “O dia está bonito”. O programa procura na sentença um substantivo conhecido. 
Se achar, ele então faz um comentário sobre aquele substantivo, baseado na definição 
existente. Quando o programa encontra uma palavra desconhecida, ele pede a você que 
digite a palavra e sua definição. Você sai do modo de conversação, digitando “fim”. 

0 procedimento Falar é a parte do programa que mantém a conversação. A 
função de apoio Dissecar verifica a frase por você digitada, palavra por palavra. A 
variável sentença mantém a sentença digitada. Dissecar remove uma palavra de cada vez 
de sentença e coloca em palavra. Aqui estão as funções Falar e Dissecar: 

procedure Dissecar(var s: strSO; var p: str30); 
var 

t, x : integer; 
temp: str80; 
beg in 

t:=l ; 

whi1e(s[t]= ' ') do t: = t+ 1; 

x:=t; 

while(s[t] <> ' ') and (t <= length(s)) do t:=t+l; 

if t <= length(s) then t:=t-l; 
p:=Copy(s,x,t-x + 1); 
temp:= s; 

s:=Copy(temp,t+1,length(s)); 
end; (Dissecar) 

procedure Falar; 
var 

sentença: strBO; 
palavra: str30; 
p: Ptr_Vocab; 
beg in 

WriteLn('Modulo de conversacao (Digite Fim para voltar ao menu)'); 
repeat 

Wn te ( ' : ' ) ; 

Read(sentence); WriteLn; 

repeat 

Disseca(sentença,pa1avra); 
p:=Busca(primeiro,pa1avra); 
if p <> nil then 
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begin 

if p' s .tipo= n' then 
begin 

case p"". conotacao of 

' b ' : Write( ' Eu gosto de '); 

' m ' s Wr i te( Eu nao gosto de ' ) ; 
end ; 

WriteLn(p~.def); 
end {if } 

else WriteLn(p A .def) ; 

end 

else if palavra <> fim then 
begin 

WriteLn(palavra,' e desc onhec ida . ' ) ; 

Diçi tacao( TRUE); 
end ; 

until length(sentença)=0; 
until palavra='fim'; 
end; {Falar) 

Eis o programa completo: 

progra» CortversacaoJ 
type 

Ptr_Vocab= A Vocab: 
strB0= stringCSOI}; 

5tr30= stringC30]; 

vocab= record 

tipo: cHar! 
conotacao: char; 
palavra: s t r 3 0 : 
oe£: strBO: 

proximo: Ptr^Vocab; íapDnta para o proxiwo registro) 
anterior: Ptr_Vocab) [aponta para o registro anterior} 

end; 

iteu*= vocab) 

Matriz= arrayCi,.1003 of Ptr_Uocabj Ccontew os oonteiros para 

os registros vocab3 

arq= file of vocab; 
var 

teste : liatr i z } 
conversa: arq! 
priweirojiiltiwo: Ptr_UocabJ 
feito: bocleaní 

function Menu: char; { retorna a opcao do usuário) 
var 

car: char; 
beg i n 

WriteLní '1. Digitar palavras' )} 

WriteLn( '2. Rpagar uwa palavra * >: 

WriteLn('3. Mostrar lista'); 
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Procurar u*a palavra' ); 
Gravar arquivo' ); 

Ler arquivo ! ); 
Conversar' ); 

Fim' ); 


Wr i teLn( ' 4 . 

Wr i teLn( ' 5 . 

WriteLní '6. 

Wr i teLn( ' 7 . 

Wr i teLn( ' 8 . 
repeat 

WriteLn; 

Writeí 'Digite sua opcao: ' >; 
Read(car); car : =UpCaseí car ): 
until (car >= '1' ) and < car <= 

Menu:=car; 
end; {Menu 3 


WriteLn: 
' B' ) ; 


function Rr»àzena,EDO(ite*. priweiro: Ptr_Uocabj 

var ultimo: Ptr_Uocab): Ptr_Vocab! 
íarmazena dados ew lista ordenada) 
var 

velho, topo: A vocab; 
feito: boolean; 
beg i n 

topo:=pri»eiro ; 
velho:= ni1: 
feito:=FRLSE; 

if pri»eiro=ni1 then 
begin C prineiro elewento da lista} 
i te* A .proxiMD:= nil; 
ulti»o:=i te» ; 
i te» A .anterior:=nil; 

Rrwazena_EDO:=ite»; 
end else 
beg i n 

wh ile ( ori weiro <> nil) and (not feito) do beg i n 
if primeiro A .palavra < itew A .palavra then begin 
velho:=pri»eiroj 
pri»eiro:=pri»eiro A .proxinoj 
end else begin Cno »eio) 

if velho < > nil' then begin 
velho A .proxi»o:=ite»j 
itew A .proxi»o:=pri»eiro; 
priweiro A .anterior:=i te»'; 
ite» A .anterior:=ve lho; 

Rr»azena_EDD:=topo; t»es»o inicio) 
f e i to:=TRUE; 
end else begin 

i teiw A . prox i »o : =pr i »ei ro ; (novo priweiro elewento) 
i te» A .anterior:=ni1; 

Rr»azena_EDÜ:= ite»; 
feito:=TRUE; 

end; 

end; 

end; C while ) 
if not feito then 
begin 

ulti»o A .proxi»o:=i te»; (no fiw) 
ite» A .proxi»o:=ni1; 
i te» A . anter i or : =ulti »o‘_í 
ulti»o:=itew; 
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Rrmazena_EDG:=topo; 
end; 
end; 

endj CRrmazena_EDO3 


f umction Rpaga_DE< primeiro: Ptr_Vocab; chave: strBO): Ptr_Yocab; 
var 

temp, temp2: Ptr^Uocab; 
feita: baoleani 
beg i n 

if primeiro A ,palavra=chave then 
begin {apaga □ primeiro da lista} 

Rpaga_OE:=primeiro A .praxi mo ; 
if temp A .proxi mo < > ni1 then begin 
temp:=pri me ira A ,proxi mo; 
temp A .anterior:=nilj 
end; 

Dispôse( primeiro); 
end else begin 
feito:=FRLSE j 
temp:=primeiro A .pr oxi mo ; 
temp2:=primeiro; 

while (temp <> nil) and (not feito) do 
beg i n 

if tewp A .palavra=chave then 
begin 

te»p2 A ,proximo:=temp A .proximo; 
if temp A .proxi mo < > nil then 

temp A .proximo A .anterior:=temp2; 
feito:=TRUE; 
ultimo:=temp A .anterior; 

Disposeítemp); 
end else 
begi n 

tewp2:=temp; 
temp:=temp A .proxiio; 
end; 
end; 

flpaga_DE:=pri me iro; (mesmo inicio) 
if not feito then UriteLn< 'Nao encontrada' ) 
end; 

end; (Rpaga_DE ) 

procedure Remove; 
var 

nome: str80; 
beg i n 

Write< 'Palavra a ser apagada: ' ); 

Read(nome); WriteLn; 
primeiro:=Rpaga_DE(pri me iro,nome ) 
end; {Remove) 
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procedure Di 3 itacao( one: boolean); 
va r 

item: Ptr_Vocab; 

£ eitD: boolean; 
beg i n 

£eito:=FflL5E; 
repeat 

New< item); Cabre um novo registro} 

Wr 1 teí 'Palavra: ' ); 

Readí ite» A ,palavra ); WriteLn; 

if LengthC 1 tem A .palavra )=0 then feito:=TRUE 

else 

begi n 

Write< 'Tipoi s,v,a): ' )> 

Read(item A .t 1 po>; WriteLn; 

Write< ' Conotacao( b f w> n >; ' v; 

ReacK i tem A .ponotacao ); WriteLn; 

Writev 'Definição: ' ).; 

Read( íte»' . d e f ; WriteLn; 

priMeiro: = Rrmazena_£DOf itewí pri»eiro,ultifito ")! 
end; 

until feito; 
end; íDigitacao ] 

procedure Mostrai priweiro: Ptr_Uocab); 
beg 1 n 

while primeiro < > nil do 
begi n 

WriteLní 'Palavra: 1 ,orn«eiro A .palavra >; 

WriteLn( 'Tipo: ' , pr 1 me 1 ro* .tipo > • 

WriteLní 'ConotacVo: 1 .primeiro" .conotacao 
WriteLn( 'Definição' 1; 

WriteLn( pri me iro A ,def >; 

WriteLn; 

pri«eiro:=priTHeiro‘ . aroxiwoj 
end; 

WriteLn; 
end; í Mostra 3 

function Procurai primeiro: Ptr_l ! ocab! palavra: str30 ): Ptr 
var 

feito: boolean; 
beg i n 

feito:=FRLSE; 

while (primeiro < > nil) and ( not feito") do 
beg 1 n 

if palavra = prlieiro‘ .palavra then beg 1 r 
Procura:= p r 1 me iro• 
feito:=TRUE • 
end else 

prmeiro;=pr Hteiro' 1 .P^oximo; 

end; 

if primeiro=nil then Procura:=ni1; { nao esta na listai 
end; C Procura} 


Uocab; 
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Procedure Rcha; 
var 

loc: Ptr_Vocab; 
palavra: str30í 
begi n 

Write( 'Palavra a ser procurada: 

Read( palavra >; WnteLn; 

loci=Procura( pri me iro, palavra ); 

i£ loc < > nil then 

begin 

WriteLn( 'Palavra: ',1dc a .palavra ); 

WriteLn< 'Tipo : ' ,loc A .tipo); 

Wr i teLn< 'Conotacao:- ' ,loc A .conotacao > I 
WriteLn< 'Definição' ); 

WriteLníloc A .de£ ); 

end 

else WriteLní 'Nao esta na lista, ' ); 
end; C RcKa } 


procedure Grava( var £:arq: priraeiro: Ptr_Uocab ); 
beg i n 

WriteLnC 'Gravando arquivo.'); 

ReWrite(f): 

while pnweiro < > nil do 
beg i n 

Wr i te< £ , pr i we i ro A >; 
primeiro:=pri me iro A . proximo) 
end; 

end; f Grava ) 

£unction Le< var £: arqj pnweiro: Ptr_Uocab): Ptr 
var 

te»p: Ptr_Vocab; 
begi n 

WriteLn( 'Lendo arquivo. ' ); 

Reset( f ); 

while priieiro < > nil do 
begin [libera lenoria } 

tewp:=pri»eiro A .proxiwo; 

Dispose< pnweiro ): 
priweiro:=tewp; 
end; 

ult imo: =ni1; priweiro:=nil; 

whi 1 not eof ( f ) do 

begin 

New( temp ); 

Read( £,temp A ); 

pri me iro:=Rrmazena_EDD(temp,pri me iro,ulti mo 
end; 

Le:=priweiro; 
end; CLe) 


procedure Dissecar( var s: strBO; var p: str30>; 
var 


Uocab; 
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t f x : integer; 
tewp : strBO; 
begi n 
t:=l; 

while(sCt3=' ' ) do t:=t+ij 
x :=t; 

while(sC 13 <> ' ' ) and (t <= length( 5 ) ) do t: =t + lj 

if t <= lengthCs ) then t:=t-l; 
p : =Copy( s f x, t-x + 1 ); 
tewp:=s; 

s:=Copy( tewp,t + 1 , length( s ) ); 
end ; i Dissecar 3 

procedure Falar; 
var 

sentença: strBO; 
palavra: str30; 
p: Ptr_Oocab; 
begi n 

WriteLn('Modulo de conversacao (Digite ' ' F i * ' ' para voltar ao 
repeat 

WriteC ' : ' ); 

Read(sentença ); WriteLn; 
repeat 

Dissecar( sentença,palavra); 
p:=Procura< priweiro,palavra ).» 
if p <> nil then 
begin 

if p A .tipo= ' s' then 
begin 

case p A .conotacao of 

'b' : WriteC 'Eu gosto de ' ); 

‘'w': Write('Eu nao gosto de ' ); 
end; 

Wr i teLn( p A . def ); 
end Cif3 


else WriteLn( p a .def ); 


end 


else if palavra <> 'fim 7 

then 

begin 


WriteLn(palavra,' e'' 

desconhecida 


Digitacao(TRUE >; 
end; 

until lengthC sentença )=0; 
until palavra='fi n 'j 
end; CFalar) 


begin 

pr imei ro :=ni1; 
ultiwoí^nil; 
feito:=FRLSE; 


wenu. )' ) 


Clista inicialwente vazia! 
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flssigní canversií 'conversa.dic' )j 
repeat 

case Menu o£ 

'1': DigitacaoiFALSE ); 

'2 1 : Remove; 

'3': Mostrai primeiro ); 

* 4' : Rcha ; 

'5': Gravai conversa,prii»BÍro )j 
' 6': primeiro:=Le<conversa,primeiro); 
' 7 ' : Falar; 

'8's feito:=TRUE; 
end; 

until £eito=TRUE; 


Este programa é engraçado e fácil de escrever. Ele pode ser melhorado, para 
parecer bem mais esperto. Uma maneira seria fazer o programa procurar os verbos da 
sentença e substituí-los por sinônimos, em seu comentário. O programa também poderia 
fazer perguntas. 




CAPITULO 



INTERFACEAMENTO COM ROTINAS EM LINGUAGEM 
DE MÁQUINA E COM O SISTEMA OPERACIONAL 


Embora o Turbo Pascal seja muito poderoso, às vezes é necessário escrever uma rotina em 
assembly ou usar um serviço do sistema operacional. Isto pode ser necessário para obter 
maior velocidade de execução ou para controlar algum dispositivo especial não previsto no 
Turbo Pascal. Seja qual for a razão, o Turbo Pascal foi projetado com flexibilidade para 
lidar com estas complementações em linguagem de máquina. 

Cada processador tem uma linguagem de montagem (assembly kmguage) 
diferente, e cada sistema operacional tem uma estrutura de interfaceamento própria. Além 
disso, a convenção para as chamadas ao sistema, que define como os subprogramas 
recebem e devolvem as informações, varia um pouco nas versões CP/M, CP/M-86 e 
MS-DOS do Turbo Pascal. Este capítulo é baseado no sistema operacional PC-DOS e no 
processador 8086, que são os mais usados hoje. Mesmo que você use um equipamento 
diferente, a discussão a seguir serve de orientação. 


INTERFACEAMENTO COM LINGUAGEM DE MÁQUINA 


Há várias razões para se usar uma rotina em assembly: 

- Para aumentar a velocidade e eficiência* 

- Para efetuar uma operação específica na máquina, não disponível através do 
Turbo Pascal. 
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- Para aproveitar uma rotina já pronta em assembly. 

Apesar de todos os compiladores de Turbo Pascal produzirem programas-objeto 
rápidos e compactos, não há um compilador capaz de criar programas mais rápidos ou 
compactos do que um programador competente pode fazer com um assembly. A diferença 
em geral não vale o tempo extra necessário para se escrever um programa em assembly. 
Entretanto, há casos especiais em que uma determinada função ou procedimento têm de ser 
escritos em assembly para rodar mais rápido. Isto é necessário quando um subprograma é 
usado muito freqüentemente, e portanto afeta muito a velocidade do programa como um 
todo. Um bom exemplo é um pacote de aritmética de ponto-flutuante. Além disso, alguns 
dispositivos especiais de hardware necessitam de programas capazes de responder em in¬ 
tervalos de tempo muito precisos. 

Muitos computadores, inclusive máquinas baseadas no 8086/8088, têm 
características úteis que não podem ser acessadas pelo Turbo Pascal. Por exemplo, você 
não pode modar o segmento de dados do programa, nem modificar o conteúdo de um 
registrador de CPU usando um comando do Pascal. 

Em ambientes de programação profissionais, é comum a compra de bibliotecas 
de sub-rotinas para funções como aritmética com ponto-flutuante ou gráficos. Muitas 
vezes, este tipo de rotina tem de ser usado na forma de objeto porque o autor não fornece 
o programa-fonte. Às vezes, basta “linkar” estas rotinas ao programa em Pascal; outras 
vezes, é preciso criar um módulo de interface entre o programa e a rotina, a fim de corrigir 
qualquer problema de interfaceamento entre os dois. 

Há duas maneiras de integrar módulos em linguagem de máquina com programas 
em Pascal. A primeira é produzir a rotina em separado, montá-la com um assembly e 
ligá-la ao resto do programa através do comando externai. A segunda maneira é usar o 
comando inline para incluir as rotinas em linguagem de máquina no corpo do programa. 

Não é meta deste livro ensinar programação em assembly. Este capítulo 
pressupõe familiaridade com a linguagem de máquina do seu computador. Os exemplos 
apresentados servem apenas como guias. 


FORMATOS INTERNOS DE DADOS 
E CONVENÇÕES DE CHAMADA DO TURBO PASCAL 


Antes de usar uma rotina em assembly com o Turbo Pascal você deve saber como os dados 
são armazenados num programa e como eles passam de um subprograma para outro. Na 
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versão MS-DOS, todas as variáveis globais são guardadas no segmento de dados e 
acessadas pelo registrador DS. Todas as variáveis locais são guardadas no stack e 
acessadas pelo registrador BP. Constantes tipadas, que são armazenadas no segmento de 
código, são referenciadas através do registrador CS. A Figura 5-1 mostra como cada tipo 
de dado é armazenado. 

Tipo 

Comprimento 

Comentários 

byte 

1 byte 


char 

1 byte 


integer 

2 bytes 


real 

6 bytes 

O primeiro byte é o expoente; o próximo byte é o byte menos significa¬ 
tivo; o último byte é o mais significativo. 

string 

varia 

O primeiro byte contém o comprimento atual, e o próximo contém o 
primeiro caractere. 

set 

varia 

Uma vez que cada elemento usa um bit, e o número máximo de elemen- 



mentos é 256, o maior conjunto ocupará 32 bytes. 

pointer 

4 bytes 

Dois bytes para segmento; dois para offset. Guardados em formato de 
byte reverso, nil é 00 00 (X) 00. 

array 

varia 

Elementos de índice menor em endereços maus baixos; índice maior 
em endereços mais altos. 

record 

varia 

Primeiro campo no endereço mais baixo; último no mais alto. 


Figura 5-1 Armazenagem de tipos predefinidos. 

Lembre-se: ponteiros (pointers) são armazenados em formato de byte reverso. 
Desta forma, um pointer contendo offset $B000 e segmento $0010 é armazenado assim: 


Lü_ 


00 


00 


B0 


segmento offset 


A convenção de chamada é o método usado pelo compilador Turbo Pascal para 
passagem de informações para os subprogramas e para retomar os valores das funções. O 
Turbo Pascal usa o stack para passar os parâmetros para os subprogramas e para retomar o 
resultado de certas funções. (O registrador AX retoma resultados de um ou dois bytes.) O 
conteúdo exato do stack , quando um subprograma é chamado, depende tanto do tipo do 
dado como da natureza de sua declaração (ou seja, se a passagem do parâmetro é feita por 
valor ou por referência). 
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PARÂMETROS POR VALOR Parâmetros por valor são unidirecionais: a informação 
é passada para o subprograma, mas qualquer modificação que ela sofra não alterará a 
variável usada na chamada do subprograma. Em vez de trabalhar com aquela variável, uma 
cópia de seu valor é feita e passada, deixando assim a variável intacta. Em resumo, só um 
valor é passado para o procedimento ou função. 

Os parâmetros de tipo integer, char, byte e boolean são passados através do 
stack em uma palavra (dois bytes). Outros tipos escalares ordinais declarados também são 
passados assim. Como no caso de variáveis booleanas, quando apenas um byte é 
necessário, a metade mais significativa da palavra é zerada. Um parâmetro do tipo real usa 
seis bytes. Uma sequência de caracteres ( string ) usa um byte além do seu tamanho 
declarado*. Este byte extra contém o comprimento atual da string, e fica acima da string no 
stack. Todos os conjuntos (tipo set) usam 32 bytes no stack quando passados como 
parâmetro de valor. 

Os pointers consistem em duas palavras: o segmento e o offset. Se o pointer é 
nil, então ambas as palavras são zero. 


PARÂMETROS POR REFERÊNCIA Ao contrário dos parâmetros passados por 
valor, os parâmetros por referência têm os endereços das respectivas variáveis passados 
para o stack . Isto significa que o subprograma trabalha diretamente com elas. Estes 
parâmetros, declarados com a palavra var, são bidirecionais: eles passam informações para 
a sub-rotina chamada e podem também retomar informações para a rotina que fez a 
chamada, pois estes parâmetros podem ser alterados. Duas palavras são passadas para o 
stack , contendo o segmento e o offset da variável, não importando seu tipo. 


VALORES DE RETORNO DE FUNÇÕES Quando uma função em Turbo Pascal 
encerra sua execução, ela passa um valor para a rotina que chamou. Para os tipos escalares 
ordinais (integer, char etc.), o valor retorna através do registrador RX. Valores do tipo 
boolean também mudam o zero flag\ 1 é TRUE, 0 é FALSE. Funções que retomam 
ponteiros colocam o segmento no registrador DX e o offset no AX. 

Quando uma função retoma uma variável-de vários bytes, a variável é colocada 
num “local de retorno de função 7 ’ do stack . Como o tipo da variável retomada por uma 
função é conhecido no momento da chamada. Pascal aloca espaço suficiente no stack para 
armazená-la. No caso de variáveis do tipo real, este espaço é de seis bytes, com o expoen¬ 
te no endereço mais baixo. No caso de strings , matrizes e registros, o primeiro byte da 
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variável ocupa o endereço mais baixo. O local de retomo da função é logo abaixo do 
endereço de retomo da função. A Figura 5-2 mostra o stack no momento de uma chamada 
de função. 



Loca] de retomo 



Parâmetros 


Topo do stack —*- 

Endereço de retorno 



Figura 5-2 O stack quando uma função é chamada. 


GUARDANDO REGISTRADORES Todo subprograma em assembly deve preservar 
os registradores BP, CS, DS e SS. Isto geralmente é feito com as instruções push e pop. 

Ao escrever um módulo em assembly para uso com Turbo Pascal, siga as 
convenções descritas acima. Só assim suas rotinas em linguagem de máquina se 
comunicarão corretamente com seus programas em Pascal. 
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CRIAÇÃO DE UMA ROTINA EXTERNA EM ASSEMBLY 


Agora que você conhece os princípios, eis um subprograma externo. Para este exemplo, 
vamos supor que seja necessário refazer a seguinte função em assembly: 

function *ul( â/b: integer ): integeri 

begi Ti 

a:=a*b; 
mui:=a; 
entí ; 


Já que esta função será chamada por um programa em Turbo Pascal, você sabe que os dois 
argumentos do tipo integer serão passados para o stack na forma de duas palavras. 
Portanto, se mui for chamada assim: 


mui( 10/20>j 


o valor 20 deverá ser armazenado primeiro e o valor 10 depois-, em ordem reversa. 
Lembre-se de que os argumentos são escalares, seus valores vão para o stock. No caso de 
matrizes e registros, os endereços é que vão para o stack . 

O valor de retomo deve ser colocado em AX. Eis a função mui em assembly: 

cooe sB 9 »ent 'code' 

assume cs :code 

xmui proc near J deve ser near porque o Turbo Pascal 

usa o modelo BOBB 

push bp 
*ov bp/sp 

; Primeiro parametro 

mov ax,Cbp3+4 
} multiplica pelo segundo 
mui C bp 3 + 6 
; lupa bp e o stacK 
to resultado final ja esta ew RX 
pdp bp 
ret 4 

xmul endp 

code ends 

end 


Note que todos os registradores apropriados são preservados com push e recuperados 
com pop. Os argumentos são retirados do stack. Se você não conhece assembly de 
8086/8088, observe as instruções a seguir: 
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WDV bp.SP 

wov ax j C bp 3 + 4 
wul [bp 3+ 6 

Estas instruções colocam o endereço do topo do stack no registrador BP e movem o quarto 
e o quinto byte do stack , que é o parâmetro a da função, para o registrador AX. A seguir, 
a multiplicação é efetuada com o sexto e o sétimo byte do stack . Os parâmetros estão no 
quarto e no sexto byte porque o endereço de retomo da função e o registrador BP ocupam 
os quatro primeiros bytes. Assim, os parâmetros são encontrados a partir do quarto byte do 
stack . 


Como o comentário no programa-fonte de mui explica, este é um procedimento 
“near”. Isto é necessário para ser compatível com a maneira como o Turbo Pascal usa a 
memória num sistema baseado no 8086/8088. Se esta função fosse “far”, o stack seria 
invalidado no retomo ao programa em Pascal. 

Antes de usar a função externa mui, ela deve ser montada, “linkada” e 
transformada num arquivo .COM através do utilitário exe2bin fornecido com o 
MS-DOS. A seqüência correta é a seguinte: 


m a 5 m in u 1 ) 

1 1 n K wuIm J 

exeZbin inul.exe mul.cow 


O último passo transforma mui num arquivo .COM, como exige o Turbo Pascal. 

Seus programas em Turbo Pascal agora podem usar a função externa mui. Por 

exemplo, 

prosram RswTest: 

var 

a,bjc: inteRerj 

function wiu 1 c x, y: integer ): integerj externai 'mul.cow'; 

bes i n 

a:=40 ) 
b : =20; 

c:= mu1 ( a,b ); {wultiplíca a por b e retorna o resultado) 

Wr i teL n( c ) j 
end . 

funciona desde que mul.com esteja no acionador em uso. 
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Lembre-se de que todos os exemplos estão em assembly de 8086/8088. 

Se você usa a versão CP/M do Turbo Pascal, deve alterar os exemplos de acordo 
com as instruções do Turbo Pascal Reference Manual . 


LINGUAGEM DE MÁQUINA VIA INLINE 


Ao contrário do Pascal padrão, o Turbo Pascal tem uma extensão que permite programas 
em linguagem de máquina fazerem parte de um programa em Turbo Pascal. Desta forma, 
você não tem de usar um subprograma separado. Há duas vantagens nisso: primeiro, o 
interfaceamento é mais simples; segundo, o programa fica todo em um ünico arquivo, 
tomando a manutenção mais fácil. O único problema é que o formato do comando inline é 
trabalhoso. 

O comando inline permite que um trecho em linguagem de máquina faça parte 
de um programa em Turbo Pascal. A forma geral do comando é: 

inlinef valorUvalor2 /.. JvalorN); 

onde valorX é o código-objeto de uma instrução de máquina ou um dado. Um * pode ser 
usado numa referência ao valor atual do program-counter. Em assembly 8088 usa-se $ 
para isso, mas como o $ marca valor hexadecimal no Turbo Pascal, optou-se pelo sinal *. 

Quando o valor puder., ser armazenado num único byte, ele o será; senão, dois 
bytes serão usados. Para contornar esta restrição, use os símbolos < e >. Se um valor 
começa com <, então apenas o byte menos significativo será considerado. Se um valor do 
tamanho de um byte for precedido de >, ele resultará em dois bytes, com o mais 
significativo em zero. Por exemplo, <$1234 resulta num único byte com o valor $34, 
enquanto >$12 resulta na palavra $0012/ 

O próximo programa multiplica dois números inteiros através da função mui, 
desta vez colocada num inline. Compare esta função mui com a sub-rotina externa, 
mostrada na seção anterior. 


Note do Revisor Técnico: as matrizes Port e PortW podem ser usadas para enviar ou receber respectivamente bytes 
palavras pelas portas de E/S, sem necessidade de recorrer à linguagem de máquina. 
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prosraw InLineflsmj Ceste programa exemplifica o use 

do procedimento InLine> 


a , b , c : i n teger ; 


function muKx.y: integer ): integer; 
beg i n 

inline<$88/546/504/ { mov ax,Cbp] + 4} 

SF 6/S66/506/ (mui C bp j + ó 3 

589/SEC/ (mov sp,bp) 

550/ C pop bp} 

5C2/$0ó/SOO); C ret ó) 

end ; C thuI 5 


beg i n 

a : = 10 ; 
b : = 2 0; 

c:= mu1 i a ,b ); 
WriteLn( c ) ; 


Aqui, o compilador Turbo Pascal providencia as instruções de retomo da função. Quando 
o compilador compila um inline, as instruções deste são codificadas no meio das 
instruções da função mui. (Nota do Revisor Técnico: O programa acima funciona, mas o 
Manual do Usuário do Turbo Pascal recomenda que todo inline inicie com pushs para 
preservar os registradores, e encerre com pops para recuperá-los. Além disso, a instrução 
RET 6 no final do inline acima causa um retomo prematuro da função: quaisquer 
comandos entre o fim do inline e o fim da função não são executados.) 

Um uso comum de inline é a comunicação com dispositivos não previstos pelo 
Turbo Pascal. Por exemplo, o subprograma abaixo poderia ser usado para ligar um 
ventilador quando um sensor de temperatura atingisse 100 graus. Este programa pressupõe 
que o envio do valor 1 pela porta de E/S (I/O port) número 200 acionará o ventilador: 

procedure Uent(tewp: integer); 

Cif te»p >= 35 graus celsius, liga o ventilador } 
beg i n 

if tewp >= 100 then 

inline <5B8/00/01/ Cwov flX,l} 

5E7/5C8 >; C out 200,fl* } 

end; 

Lembre-se: o compilador Turbo Pascal toma as providências necessárias para a chamada e 
retomo de uma função. Você só tem de escrever o corpo da função e seguir a convenção 
de chamada descrita no manual para acessar os parâmetros. 

Seja qual for o método empregado, você estará criando rotinas que dependem 
das particularidades de uma máquina, tomando difícil a conversão do programa para 
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outras máquinas ou sistemas operacionais. Entretanto, para as situações extremas que 
exigem o uso de assembly, o esforço valerá a pena. 


QUANDO PROGRAMAR EM ASSEMBLY 

A maioria dos programadores só programa em assembly quando é absolutamente 
necessário, pois é uma tarefa diffcil. Como regra geral, não o faça: causa muitas dores de 
cabeça. Entretanto, há duas situações em que trabalhar com um assembly faz sentido. A 
primeira situação é quando não há absolutamente nenhum outro jeito de resolver o 
problema - por exemplo, quando é necessário controlar dispositivos que o Turbo Pascal 
não pode manipular. 

A segunda situação é quando o tempo de execução de um programa tem de ser 
reduzido. Neste caso, você deve escolher cuidadosamente as funções que devem ser 
escritas em assembly . Se você escolher as funções erradas, o aumento em velocidade será 
pequeno. Escolhendo as certas, o programa voa! Para determinar quais subprogramas 
devem ser reescritos, reveja o fluxo de operação do seu programa. Rotinas usadas em 
loops são as que devem ser reescritas, pois são usadas repetidamente. Usar assembly para 
refazer uma rotina usada, uma ou duas vezes, pode causar um aumento desprezível de 
velocidade, mas refazer uma rotina usada muitas vezes pode aumentar a velocidade 
significativamente. Por exemplo, observe o procedimento a seguir: 

procedure RBC; 
var 

t: intB 9 er; 


begin 

i T> i c j 

£or t:=0 to 1000 do begin 
£ asei; 
f aseZ; 

if t=10 then £ase3; 
cnd; 
tchau; 
end; 

Reprogramar iníc e tchau pode não afetar sensivelmente a velocidade deste procedimento, 
pois eles são executados só uma vez. Tanto fasel quanto fase2 são executados 1.000 
vezes, e reprogramá-los certamente terá um grande efeito na velocidade; fase3 está dentro 
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do loop , mas só é executado uma vez, portanto, reprogramá-lo provavelmente não valha a 
pena. 


Com um planejamento cuidadoso, você pode aumentar bastante a velocidade de 
um programa, refazendo só uns poucos subprogramas em assembly. 


INTERFACE COM O SISTEMA OPERACIONAL 


Muitos programas escritos em Turbo Pascal têm de trabalhar a nível do sistema 
operacional. As vezes é necessário usar funções especiais do sistema operacional não 
disponíveis em Turbo Pascal. Por isso, o Turbo Pascal facilita o acesso a rotinas de baixo 
nível do sistema operacional. 

Vários sistemas operacionais podem ser usados com Turbo Pascal: 

-PC-DOS ou MS-DOS 

-CP/M 
- CP/M-86 

Todos eles têm um conjunto de funções que os programas usam para tarefas como abrir 
arquivos, receber/enviar caracteres de/para o console, alocar memória etc. O modo de 
acesso a estas rotinas varia de sistema para sistema, mas a tendência geral é usar o 
conceito de tabela de desvios (jump table). Num sistema operacional como CP/M, rotinas 
do sistema são executadas através de uma instrução CALL para uma certa área da 
memória, com o código da função desejada num registrador. No PC-DOS, uma interrupção 
de software é usada. Nos dois casos, uma tabela de desvios leva à função propriamente 
dita. A Figura 5-3 mostra como o sistema operacional e sua tabela de desvios podem estar 
dispostos na memória. 

Não é possível tratar dos vários sistemas operacionais aqui. Este capítulo 
concentra-se no PC-DOS, por ser o mais usado. Entretanto, a técnica geral é a mesma nos 
outros sistemas. 
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Figura 5-3 Um sistema operacional e sua tabela de desvios. 

ACESSO A ROTINAS DO SISTEMA EM PC-DOS 

No PC-DOS, as rotinas do sistema são acessadas por meio de interrupções de software. 
Cada interrupção acessa um grupo de funções; o conteúdo do registrador AH determina 
qual. Se outros parâmetros são necessários, eles são passados através dos registradores 
.AL, BX, CX e DX. O PC-DOS é dividido em BIOS {Basic HO System - sistema básico de 
E/S) e DOS {Disk Operating System - sistema operacional de disco). 0 BIOS fornece as 
rotinas de nível mais baixo que o DOS usa em suas rotinas. Há alguma sobreposição de 
funções, mas ambos são acessados do mesmo modo, basicamente. Segue uma lista de 
interrupções: 
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Interrupção Função 


05h 
10h 
llh 
12h 
13h 
14h 
15h 
16h 
17b 
18h 
19h 
1 Ah 


Utilitário de impressão da tela 
E/S de vídeo 

Listagem da configuração 

Tamanho da memdria 

E/S de disco 

E/S da porta serial 

Controle do cassete 

Teclado 

Impressora 

BASIC residente 

Rotina de boot 

Hora e data 


Para uma explicação mais detalhada, consulte o IBM Technical Reference Manual. 

(Nota do Tradutor: Infelizmente, nenhum dos fabricantes nacionais fornece uma 
documentação tão detalhada quanto a IBM. E em alguns casos, os BIOS nacionais não se 
comportam de acordo com o BIOS padrão do IBM PC.) 

Cada uma destas interrupções está associada a um número de opções que 
dependem do valor de AH quando a chamada ocorre. A Tabela 5-1 mostra uma lista 
parcial das opções disponíveis para algumas destas interrupções. Há duas maneiras de 
acessar as funções da Tabela 5-1. A primeira é através de um procedimento padrão do 
Turbo Pascal chamado MsDos (para o PC-DOS ou MS-DOS). O segundo método é via 
assembty. (Nota do Revisor Técnico: Há um terceiro método, através do procedimento 
Intr do Turbo Pascal. Este procedimento, ao contrário do MsDos, não se limita a produzir 
uma interrupção 21h, permitindo acesso a todas as rotinas do BIOS.) 

Tabela 5-1 Rotinas do sistema acessadas via interrupções 


E/S de vídeo - Interrupção 10h 

Registrador AH Função 

0 Define modo de vídeo. 

AL = 0:40x25 P&B 

1 : 40x25 cor 

2 : 80x25 P&B 

3 : 80x25 cor 


(continua na página seguinte * 
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(continuação) 

4.320x200 gráfica cor 

5 : 320x200 gráfica monocromática 

6 : 640x200 gráfica monocromática 

1 Define iinhas de pixel do cursor. 

CH : bits 0-4 indicam linha de início 
bits 5-7 em zero 

CL : bits 0-4 indicam linha de fim 
bits 5-7 em zero 

2 Posiciona cursor. 

DH : linha 
DL : coluna 

BH : número da página de vídeo 

3 Verifica posição do cursor. 

BH : número da página de vídeo 
Retoma: 

DH : linha 
DL : coluna 
CX : modo 

4 Lê posição da caneta ótica. 

Retoma: 

AH = 0 : botão da caneta não pressionado 
1 : botão da caneta pressionado 
DH : linha 
DL : coluna 

CH : linha da tela gráfica (0-199) 

BX : coluna da tela gráfica (0-319/639) 

5 Define página ativa de vídeo. 

AL : número da página (0-7) 

6 Scroü para cima. 

AL : número de linhas (0 = todas) 

CH : linha do canto superior esquerdo 
CL : coluna do canto superior esquerdo 
DH : linha do canto inferior direito 
DL : coluna do canto inferior direito 
BH : atributo para limpar linhas 


(continua na página seguinte) 
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(continuação) 

7 Scroll para baixo. 

(mesmos registradores da rotina 6) 

8 Lê caractere na posição do cursor. 

BH : número da página de vídeo 
Retorna: 

AL : caractere lido 

AH : atributo do caractere lido 

9 Escreve caractere e atributo na posição do cursor. 

AL: caractere 

BH : número da página de vídeo 

BL : atributo do caractere 

CX : número de posições a preencher 

10 Escreve caractere na posição do cursor. 

AL : caractere 

BH : número da página de vídeo , 

CX : número de posições a preencher 

11 Define palheta de cores (paiette ). 

BH : número da palheta 
BL : cor na palheta 

12 Acende um pixel. 

DX : linha 
CX : coluna 
AL: cor 

13 Verifica um pixel. 

DX : linha 
CX : coluna 
Retorna: 

AL : cor 

14 Escreve caractere e avança o cursor. 

AL : caractere 
BL : cor 

BH : número da página de vídeo 

15 Verifica estado do vídeo. 

Retorna: 

AL : número do modo 


(continua na página seguinte) 
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(continuação) 

AH : número de colunas 

BH : número da página de vídeo ativa 

Lista configuração - Interrupção llh 

Retoma: 

AX : descrição do equipamento 

bit 0 = 1 : um ou mais acionadores de disco 
bit 1 : sem função 

bits 2,3 : RAM presente na placa-mãe; 11 = 64k 
bits 4,5 : modo de vídeo iniciai; 

01 = 40x25 cor 

10 = 80x25 cor 

11 = 80x25 monocromático 
bits 6,7 : número de drives; 0 = 1 drive 
bit 8 = 0 : chip de DMA instalado 

bits 9,10, 11 : número de portas RS-232 
bit 12 = 1 : saída para joystick instalada 
bit 13 = 1 : impressora serial (só no PCjr) 
bit 14, 15 : número de impressoras 

Tamanho da memória - Interrupção 12h 

Retorna: 

AX : número de parágrafos e RAM instalados no sistema 

E/S de disco - BIOS - Interrupção 13h 
Registrador AH Função 

0 Reseta sistema de disco. 

1 Verifica estado do acionador. 

Retorna: 

AL : (v. IBM Technical Reference Manual) 

2 Lê setores para memória. 

DL : número do acionador 

DH : número do cabeçote 

CH : número da trilha 

CL : número do setor 

AL : número de setores a serem lidos 


(continua na página seguinte) 
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(continuação) 


ES:BX : endereço do buffer 
Retoma: 

AL : número de setores lidos 
AH : status (0 = ok) 


3 Escreve setores no disco. 

(mesmos registradores da rotina 2) 

4 Verifica um setor. 

(mesmos registradores da rotina 2) 

5 Formata uma trilha. 

DL : número do acionador 
DH : número do cabeçote 
CH : número da trilha 
ES:BX : endereço do buffer 

E/S do teclado - BIOS - Interrupção 16h 

Registrador AH Função 

0 Lê código de varredura. 

Retoma: 

AH : código de varredura da tecla 
AL : código do caractere 

1 Verifica estado do buffer . 

Retoma: 

ZF = 1 : não há caracteres no buffer 

0 : há pelo menos um caractere no buffer ; o primeiro está no registrador 
AX (v. rotina 0) 

2 Verifica estado do teclado. 

(v. IBM Technical Reference Manuat) 

E/S da impressora - BIOS - Interrupção 17h 

Registrador AH Função 

0 Imprime um caractere. 

AL : caractere 

DX : número da impressora 


(continua na página seguinte) 
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(continuação) 

Retorna: 

AH : status 

í Aciona impressora. 

DX : número da impressora 
Retorna: 

AH : status 

2 Verifica estado d a impressora. 

DX : número da impressora 
Retoma: 

AH : status 

Rotinas de alto nível - DOS - Interrupção 21h (lista parcial) 
Registrador AH Função 

1 Lê caractere do teclado. 

Retorna: 

AL : caractere 

2 Coloca caractere na tela. 

DL : caractere 

3 Lê caractere da porta assíncrona. 

Retoma: 

AL : caractere 

4 Envia caractere para porta assíncrona. 

DL : caractere 

5 Imprime caractere no dispositivo LST:. 

DL: caractere 

7 Lê caractere do teclado sem mostrar no vídeo. 

AL: caractere 

B Verifica estado do teclado. 

AL = FF : tecla pressionada 

0 : tecla não pressionada 

D Reseta acionador de disco. 


(continua na página seguinte) 
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(continuação) 

E Define acionador de disco ativo. 

DL = número do acionador (0= A, 1 = B...) 

11 Procura arquivo no disco. 

(4E até V.2.xx) DX : endereço do FCB 

Nome do arquivo deve estar no endereço de transferência para disco 
(v. rotina IA) 

Retorna: 

AL = 0 : arquivo encontrado 

FF : arquivo não-encontrado 

12 Acha nova ocorrência do nome de arquivo. 

(4F até V2.xx) (mesmos registradores da rotina 11) 

1A Define endereço de transferência para disco (disk transfer address). 

DX : endereço 

2A Lê data do sistema. 

Retoma: 

CX : ano (1980-2099) 

DH: mês (1-12) 

DL: dia (1-31) 

2B Define data do sistema. 

CX : ano (1980-2099) 

DH : mês (1-12) 

DL: dia(1-31) 

2C Lê hora do sistema. 

Retoma: 

CH : hora (0-23) 

CL : minutos (0-59) 

DH : segundos (0-59) 

DL : centésimos de segundo (0—99) 

2D Define hora do sistema. 

CH : hora (0-23) 

CL : minutos (0-59) 

DH : segundos (0-59) 

DL : centésimos de segundo (0—99) 
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USO DO PROCEDIMENTO MsDos 


O procedimento MsDos provoca uma interrupção de software numero 21h para acessar 
uma das funções de nível mais alto do DOS. Uma chamada tem a forma geral: 


MsDosí registradores) 


onde registradores é um registro definido de uma destas maneiras: 


reg_record 


= record 

RX,BX,CX,DX,BP, SI, Dl,05,ES,f lags: 


end; 


integer; 


res_byte = record 

RL,RH,BL,8H,DL,DH: byte; 

BP, 51, DT, OS, ES, f lags : integer; 

end; 


A segunda definição é usada quando^é preciso manipular bytes. Você pode misturar os 
tipos byte e integer para representar os registradores, ou usar um registro variante com 
case. Escolha a definição mais adequada para as suas necessidades. 

No restante deste capítulo, estaremos desenvolvendo procedimentos que 
duplicam funções já existentes em Turbo Pascal. Isto se deve a três fatores. Primeiro, 
Turbo Pascal já inclui quase tudo em termos de rotina do sistema operacional para a maior 
parte das aplicações. Segundo, é importante ilustrar tão detalhadamente quanto possível 
como o interfaceamento ocorre, até que possamos lidar com situações especiais. Terceiro, 
os exemplos demonstram com maior profundidade como as funções e procedimentos 
funcionam no Turbo Pascal. 

Aqui está um exemplo simples. A função a seguir determina se uma tecla foi 
digitada. Ela é similar à função Keypressed do Turbo Pascal. Esta função, Teci, resulta 
TRUE se uma tecia tiver sido pressionada, e FALSE no caso inverso. Ela usa a 
interrupção 21h, número $B, como mostrado aqui. Lembre-se: números hexadecimais 
devem ser precedidos de $, que informa ao compilador que um número hexadecimal virá 
em seguida. O programa imprime pontos na tela até uma tecla ser pressionada. 

program Kb; (espera que □ teclado seja acionado) 

C SC- ) 

function Teci: boolean; (especifico do PCOOS3 
t ype 

RegByte = record 

RL,RH,BL,BH,DL,DH: byte.: 

BP,SI,DI,DS,E5, flags: 1 ãteger; 


end; 
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var 

registro: RegBytej 
beg i n 

registro.RH:= 58; 

MsDosC registro ); 

if registro. RL=0 then Teci :=FRLSE 
else Teci : =TRUE; 
end; 

begin 

repeat 
Wr i te( 
until Teci; 
end . 


Note que o resto dos registradores não teve de ser acionado nesta' chamada, 
pois apenas o número da função, SB, era necessári' 0 . Geralmente, se um registrador não é 
usado numa chamada, então a ele não precisa ser atribuído um valor. 

A diretiva $C- do compilador é usada neste programa para impedir a verificação 
de CTRL-C, CTRL-S e CTRL-Q. Se a verificação nao fosse impedida, estas teclas não 
seriam passadas ao programa, Elas seriam interceptadas pelo sistema de apoio em tempo 
de execução do Turbo Pascal, CTRL-C abortaria o programa, CTRL-S suspenderia a 
execução temporariamente, e CTRL-Q recomeçaria. 


INTERFACEAMENTO COM BIOS E DOS VIA ASSEMBLY 

Suponha que você deseje mudar o modo da tela durante a execução de um programa. Os 
16 modos possíveis da tela do PC são mostrados na tabela a seguir: 


Modo 

Tipo 

Dimensões 

Placas 

0 

Texto, P&B 

40x25 

CGA,EGA 

1 

Texto, 16 cores 

40x25 

CGA,EGA 

2 

Texto, P&B 

80 x 25 

CGAJBGA 

3 

Texto, 16 cores 

80 x 25 

CGA,EGA 

4 

Gráfico, 4 cores 

320 x200 

CGA,EGA 

5 

Gráfico, 4 tons de cinza 

320 x 200 

CGA,EGA 

6 

Gráfico, monocromático 

640 x 200 

CGAJEGA 

7 

Texto, P&B 

80x25 

Monochrome 

8 

Gráfico, 16 cores 

160 x 200 

PCjr 

9 

Gráfico, 16 cores 

320 x 200 

PCjr 

10 

Gráfico, 4 cores 

640 x 200 

PCjr 


ou Gráfico, 16 cores 

640 x 200 

EGA 
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Modo 

Tipo 

Dimensões 

Placas 

13 

Gráfico, 16 cores 

320 x 200 

EGA 

14 

Gráfico, 16 cores 

640 x 200 

EGA 

15 

Gráfico, 4 cores 

640x350 

EGA 


O procedimento modo, mostrado a seguir, executa uma chamada número 1 do 
BIOS para mudar a tela para o modo gráfico de 640 x 200, escrever a mensagem oi , e 
esperar o usuário teclar RETURN. Depois disto, a tela retoma para o modo de texto 
colorido de 80 x 25. (Este programa só funciona num IBM PC ou compatível com placa 
CGA.) 

program ModoGrafico; 

procedure mode(ModeSet: integer); externai mode.com'; 

begin 

mode(6); 

WriteLn(' Oi !'); Read ; 
mode(3); 
end. 

O procedimento externo modo, em assembty, é o seguinte: 

; este procedimento muda o modo da tela 
; com base em um argumento inteiro, 
code segment 'code' 

assume cs: code 

mode proc near ; tem que ser 'near' porque o Turbo 3.0 usa 

; este modo de endereçamento do 808B 

push bp 
mov bp,sp 

;muda o modo 

mov ax,Cbp3+4 
mov ah,O ; muda o modo 
int 010h ; chamada de bios 

;1 impa e sai 

pop bp 
ret 2 

mode endp 

code ends 

end 


Agora, um procedimento para limpar a tela, o Limpatela: 
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prDgram LimpaTela,* 

procedure Limpa; externai clr.com ; 
beg i n 

WriteLn< 'Pressione uma tecla para limpar a tela, ' ); 

ReadLn; 

clr) 

WriteLn( 'Tela limpa, ' ); 
end . 

O procedimento externo em assembty, 11, aparece a seguir: 

;esta rotina limpa a tela usando a interrupção padraD 
;numero 6 do BIOS. 
cseg segment 'code' 

assume csicseg 

clr proc near 

/'salva os registradores usados 
push ax 
push bx 
push cx 
push dx 

mov cx/O j start at 0,0 

wov dh,24 ; end at row 24 

mov dl,79 column 79 

mov ah,6 j set scroll option 

mov al,0 clear screen 

mov bh,7 

int 10h 

;recupera os regi stradores e sai 
pop dx 
pop cx 
pop bx 
pop ax 
ret 

clr endp 
cseg ends 

end 

Outro exemplo de interfaceamento com o BIOS através de assembty é o 
procedimento xy, que posiciona o cursor nas coordenadas x e y dadas. Este procedimento 
é semelhante ao procedimento GotoXY encontrado no Turbo Pascal. Para o IBM PC, 0,0 
é o canto superior esquerdo da tela. 

prcgram Coordenadas; 
var 

t: integer; 

procedure xy(x,y: integer); externai 'xy.cow',* 
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begin 

for t:=0 to 24 do 
beg i d 

x y< t, t ); 

Ulr i te< t ) j 
end j 
end. 


Abaixo o procedimento externo em assembiy: 


code segment 1 code ' 
as sume cs:code 

x y proc near ; must be near because Turbo uses snaLl 

; 8088 nodel 

pu s h bp 
mov bp,sp 


; get first parm 

mov dh, C bp] + 4 ; 
mov dl,C b p] + 6 ; 
mov ah,2 ; 

mov bh,0 ; 

i n t 1 0 h ; 


get x 
get y 

tell bios to go there 
page nunber 


pop bp 
ret 4 

xy endp 

code ends 

end 


USANDO OS CÓDIGOS DE VARREDURA DO TECLADO DO PC 


Uma das experiências mais frustrantes para quem se inicia no IBM PC é tentar usar as 
teclas de movimentação do cursor (setas, home, PgUp etc.) ou as teclas de função nos seus 
programas. Estas teclas não geram um byte como as outras. Ao pressionar uma tecla, o PC 
gera um valor de 16 bits, chamado código de varredura (scan code). O código de varredu¬ 
ra consiste em um byte menos significativo, que é o código ASCII (se houver) da tecla 
pressionada, e um byte mais significativo, contendo a posição da tecla no teclado. Para a 
maior parte das teclas, este código é convertido num número ASCII de 8 bits pelo sistema 
operacional. Mas, para as teclas de função -e de movimentação do cursor, isto não ocorre 
pois não há um código para estas teclas (o código do caractere é zero). Isto significa que 
você tem de usar o código de posição para determinar que tecla foi pressionada. A rotina 
do número 1 do DOS para leitura do teclado não permite que vocêleia as teclas especiais. 

O modo mais fácil de acessar estas teclas, usando Turbo Pascal, é escrevendo 
uma rotina em assembiy para invocar a interrupção 16h e ler o código de varredura. (Nota 
do Revisor Técnico: Mais fácil ainda é úsar o procedimento predefinido intr para acionar 
a interrupção 16h.) 
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;esta rotina retorna um valor de 16 bits do teclado 
;0 byte mais baixo e' um caracter ASCII ou 0. 

;Se for 0, o byte mais alto contem um codigo 
;de varredura 
code segment 'code' 

assume cs:code 

scan proc near ; must be near because Turbo uses small 

; 8088 model 

push bp 
mov bp,sp 

;get fisrt parm 

mov ah,0 
int 16h 

mov [bx+2],ax ; valor 
jrestore and exit 
pop bp 
ret 2 

scan endp 

code ends 

end 


Após a chamada, o código de varredura e o código do caractere estão no 
registrador AX. No caso de interrupção 16h, função 0, AH indica a posição e AL indica o 
caractere. 


O importante no uso da rotina scan é saber que quando uma tecla especial é 
pressionada, o código do caractere é 0. Neste caso, você identifica a tecla pelo código de 
posição, O uso de scan, para cuidar de toda entrada via teclado, requer que a rotina que 
faz a chamada tome decisões baseadas no conteúdo de AH e AL. Eis um programa curto 
que ilustra um modo de fazê-lo: 


program Flecha; 
var 

t: in teger ; 

function scan: integer; externai scan.com ; 

begin 

repea t 

t:=scan; 

if Lo (t)=0 then WriteLn(0 codigo de varredura e‘ ', Hi(t)) 

else WriteLn(Chr(1 o(t))); 
until Chr( 1 o(t) ) = 'q' ; 
end . 


As funções predefinidas Hi e Lo são usadas para acessar as duas metades do valor de 16 
bits devolvido por scan. Também é usada a função Chr para converter o número 
resultante em caractere. 
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O IBM Techmcal Reference Manual traz uma tabela completa dos códigos de 
varredura do IBM PC. Você também pode descobrir estes códigos, experimentando com 
um programa como o anteriormente mostrado (este método é mais divertido). Para ajudá-lo 
a testar o programa, aqui vão alguns códigos de varredura: 


Seta esquerda .75 

Seta direita 77 

Seta para cima 72 

Seta para baixo 80 


A utilização plena das teclas de função exige a criação de rotinas de entrada de 
dados especiais, ignorando o read do Pascal. Isto é uma pena, mas é o único meio. A 
recompensa é permitir ao usuário usar o teclado inteiro. 


PENSAMENTOS FINAIS SOBRE INTERFACEAMENTO 
COM O SISTEMA OPERACIONAL 


Este capítulo apenas tocou de leve nas possibilidades de uso criativo dos recur¬ 
sos de um computador. A fim de integrar seu programa mais completamente com sistema 
operacional, você deve ter acesso a informações que descrevam todas as funções com de¬ 
talhe. 


Há várias vantagens em se usar as funções do sistema operacional. A primeira é 
que elas fazem uso de características especiais do seu computador, tomando seu programa 
mais profissional na aparência e no desempenho. Segundo, ignorando algumas funções do 
Turbo Pascal e buscando suas equivalentes no sistema, às vezes leva a um programa mais 
compacto e rápido. Terceiro, você tem acesso a funções não disponíveis pelo Turbo Pas¬ 
cal. 


Entretanto, usar o sistema neste nível tem um preço. Você está construindo uma 
armadilha para si próprio quando começa a usar rotinas do sistema em vez de rotinas defi¬ 
nidas pelo Turbo Pascal, pois seu programa não rodará em outra máquina. Você também 
poderá ficar dependente de uma certa versão do sistema operacional ou do compilador 
Turbo Pascal, o que criará problemas na hora de distribuir seus programas. Só você pode 
decidir se e quando seus programas devem estar à mercê destes fatores externos. 





A maioria das pessoas que possuem ou têm acessa freqüente a um computador, em algum 
ponto, utiliza-o para executar análise estatística. Essa análise pode tomar a forma de 
monitoração ou tentativa de previsão de alteração de preços de ações de uma carteira, 
estudar testes clínicos para estabelecer limites seguros para uma nova droga, ou mesmo 
fornecer a média de passes errados para um time da segunda divisão. O ramo da 
matemática que lida com condensação, manipulação e extrapolação de dados é chamado 
estatística. 

Como disciplina, a análise estatística é bastante jovem. Ela desenvolveu-se no 
século XVm como uma conseqüência do estudo dos jogos de azar. De fato, probabilidade 
e estatística estão proximamente relacionadas. A análise estatística moderna começou por 
volta da virada do século, quando tomou-se possível amostrar e trabalhar com grandes 
conjuntos de dados. O computador tomou possível correlacionar e manipular rapidamente 
volumes de dados ainda maiores e converter esses dados em forma prontamente utilizável. 
Hoje, devido à sempre crescente massa de informações, criada e utilizada pelo governo e 
pela mídia, todos os aspectos da vida são ornados com calhamaços de informações 
estatísticas. É quase impossível ouvir rádio, assistir o noticiário da TV ou ler um artigo de 
jornal sem ser informado de alguma estatística. 

Embora o Turbo Pascal não tenha sido planejado especificamente para 
programação estatística, ele se adapta bastante bem ao serviço. Chega até mesmo a 
oferecer uma flexibilidade não encontrada nas linguagens comerciais mais comuns como 
COBOL ou BASIC. Uma vantagem do Turbo Pascal sobre o COBOL, é a velocidade e 
facilidade com que os programas de Turbo Pascal podem utilizar as funções gráficas do 
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sistema para produzir diagramas e gráficos de dados. Além disso, as rotinas matemáticas 
do Turbo Pascal são muito mais rápidas que aquelas normalmente encontradas em BASIC 
interpretativo. 

Este capítulo enfoca vários conceitos de estatística, incluindo: 

- a média; 

- a mediana; 

- o desvio padrão; 

- a equação de regressão (linha de melhor ajuste); 

- o coeficiente de correlação. 

Ele também explora algumas técnicas gráficas simples. 


AMOSTRAS, POPULAÇÕES, DISTRIBUIÇÕES E VARIÁVEIS 


Antes de usar estatística, você deve entender alguns conceitos-chaves. A informação 
estatística origina-se a partir da tomada de uma amostra de pontos de dados específicos 
seguida da elaboração de generalizações sobre eles. Cada amostra vem da população , que 
consiste em todas as ocorrências possíveis para a situação em estudo. Por exemplo, se 
você quisesse medir a produção anual de uma fábrica de caixas, usando apenas os números 
de produção das quartas-feiras e generalizando a partir deles, então sua amostra consistiria 
no valor de um ano de quartas-feiras tomadas da propulsão maior da produção de cada dia 
do ano. 


É possível que a amostra iguale a população se for completa. No caso da fábrica 
de caixas, sua amostra igualaria a população se você usasse os verdadeiros números de 
produção - cinco dias por semana durante todo o ano. Quando a amostra é menor que a 
população, sempre há lugar para erro; entretanto, para a maioria dos casos, você pode 
determinar a probabilidade de ocorrência desse erro. Este capítulo pressupõe que a 
amostra é igual à população, portanto ele não cobre a questão dos erros de amostragem. 

Para projeções eleitorais e enquetes de opinião, uma amostra-proporcionalmente 
pequena é usada para projetar informações sobre a população como um todo. Por exemplo, 
você poderia utilizar informações estatísticas sobre o índice Bovespa para fazer uma 
inferência do mercado de ações em gei$L Claro que a validade dessas conclusões varia 
muito. Em outros usos da estatística, para facilitar a manipulação, uma amostra que iguale 
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ou aproximadamente iguale a população é usada para sintetizar um grande conjunto de 
números. Por exemplo, uma junta de educação geralmente relata o ponto médio das notas 
de uma classe, em vez da nota individual de cada aluno. 

As estatísticas são afetadas pelo modo como os eventos são distribuídos na 
população. Das várias distribuições comuns na natureza, a mais importante (e a única 
usada neste capítulo) é a curva de distribuição normal, ou a familiar curva em forma de 
sino , mostrada na Figura 6-1. Como sugere o gráfico da Figura 6-1, os elementos em 
distribuição normal são encontrados principalmente no meio. De fato, a curva é 
completamente simétrica em tomo desse pico que também é a média de todos os 
elementos. Quanto mais longe do centro em qualquer direção da curva, menos elementos 
haverá. Muitas situações da vida real possuem distribuição normal. 



Figura 6-1 A curva de distribuição normal. 

Em qualquer processo estatístico, há sempre uma variável independente, que é o 
número em estudo, e uma variável dependente , que é o fator que determina a variável 
independente. Este capítulo usa o tempo - incremento gradual da passagem de eventos - 
como variável dependente. Por exemplo, no exame de uma carteira de ações, você poderá 
desejar ver o movimento de estoque em base diária. Você estaria, portanto, preocupado 
com a mudança dos preços das ações em um dado período de tempo, não efetivamente com 
a data de calendário de cada preço. 

Ao longo deste capítulo, serão desenvolvidas funções estatísticas individuais 
que serão montadas e um único programa gerenciado por menu. Você pode utilizar esse 
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programa para a execução de uma ampla gama de análises estatísticas, assim como para a 
representação de informações na tela. 

Sempre que os elementos de uma amostra são discutidos, serão chamados de D e 
serão indexados de 1 a N, onde N é o número do último elemento. 


A ESTATÍSTICA BÁSICA 


Três valores importantes formam a base de muitas análises estatísticas e também são úteis 
individualmente. Eles são a média , a mediana , e a moda . 


A MÉDIA 

A média, ou média aritmética, é a mais comum de todas as estatísticas. Esse único valor 
pode ser usado para representar uma série de dados - a média pode ser chamada de 
“centro de gravidade” da série. Para computar a média, todos os elementos da amostra são 
somados e o resultado é dividido pelo número total de elementos. Por exemplo, a soma da 
série 


123456789 10 

é igual a 55. Quando o número é dividido pelo número de elementos na amostra, que é 10, 
a média é 5,5. 

A fórmula geral para achar a média é 

Z)j + D 2 + D 3 4- ... 4- D n 
M = - 

ou 

1 



M = 


N 
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O símbolo sigma indica a soma de todos os elementos entre 1 e N. 

Da maneira como as funções estatísticas são desenvolvidas em Turbo Pascal, 
você deve admitir qiie todos os dados estão armazenados em uma matriz de números de* 
ponto-flutuante de um tipo definido pelo usuário, chamado Matriz, e que o número de 
elementos da amostra é conhecido. Todas as funções e procedimentos utilizam a matriz 
data para armazenar a amostra e a variável num para o número de elementos. A seguinte 
função computa a média de uma matriz num de números reais e retoma a média: 

function Medi a(dado : Matriz; nui: ínteger): real; 
v ar 

t: integer; 

» e d: real; 

be3 i n 

ned:=0; 

for t:=l to nu» do »ed:=»ed+dadoCt3; 
rtedia: =»ed/nu» ; 
end; í Media } 

Por exemplo, se você chamar Media com uma matriz de 10 elementos que contenha os 
números de 1 a 10, então ela retomará o resultado 5,5. 


A MEDIANA 

A mediana de uma amostra é o valor do meio, baseado na ordem de magnitude. Por 
exemplo, no conjunto amostra 


123456789 

5 é a mediana, porque está no meio. No conjunto 

123456789 10 

você poderia usar 5 ou 6 como mediana. Em uma amostra bem ordenada que tenha 
distribuição normal, a média e a mediana são muito similares. Entretanto, à medida que a 
amostra se afasta da curva de distribuição normal, a diferença entre a mediana e a média 
aumenta. O cálculo da mediana de uma amostra consiste simplesmente em ordenar a 
amostra em ordem crescente e selecionar o elemento do meio, que é indexado como N/2. 
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A função Mediana, aqui mostrada, retoma o valor do elemento do meio de uma 
amostra. Uma versão modificada de QuickSort (desenvolvido no Capítulo 2) é usada para 
ordenar a matriz de dados. 

procedure QuicKSort ( var itew: Matriz; conta; integer); 
procedure qs íl,r; integer; var it; Matriz); 
var 

ijj: integer; 
x , y; Dado; 
begin 

i:=l; j:=r; 

x : = i tC ( 1 + r ) div 23; 

repeat 

while itCi3 < x da i:=i+l; 
while x < itCJ3 da 
i £ i <= j then 
begin 

y ; = i tC i 3 J 
i tí i 3 : = i tC J 3; 
itC j 3:=y; 
i:=i+l; j 
ènd; 

u n t i 1 i > j ; 

i€ 1 < j then qs<l/j/it); 
i£ 1 < r then qs(i,r,it); 
end; 

beg i n 

qs< li canta , i te» ); 
end; C quicK sort3 

function Mediana (dado; Matriz; num: intege-r): real; 
var 

dtemp: Matriz; 
t; integer; 


beg i n 

for t:=l to num do dtempCt3:=dataCt3; 
QuicK5ort( dte»p,num); 

Median;=dt8mpC nuw div 23; Celemento 
end; C Medi anal 


C copia daods 
centra 1 } 


para ordenacao } 


A MODA 

A moda de uma amostra é o valor do elemento de ocorrência mais freqüente. Por exemplo, 
na série 


123345666789 

a moda seria 6 pois ele ocorre três vezes. Pode haver mais de uma moda, por exemplo, a 
amostra 
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10 20 30 30 40 50 60 60 70 


tem duas mexias - 30 e 60 - pois ambas ocorrem duas vezes. 

A seguinte função, Moda, retoma a moda de uma amostra. Se houver mais de 
uma moda, ele retomará a última encontrada. 

function Moda< dado: Matriz; nu»: ínteger ): real; 
va r 

t , w,conta*ccm ta_velho: integer; 

»d,id_velha: real; 

begi n 

»d_velha:=0; conta_velho:=0; 

for t:=l to nu» do 

begin 

»d : =dadoC t 3; 
conta:=1; 

for u:=t+l to na» do 

it md=dadoCw3 then conta:=canta+l; 
if conta > canta_velho then 
beg i n 

»d_velha:=»d; 
conta_velho:= con ta; 
endj 
end; 

Moda :=»d_veiha; 
end; { Moda 3 


USANDO A MÉDIA, A MEDIANA, E A MODA 

A média, a mediana e a moda possuem o mesmo propósito: fornecer um valor que seja 
uma condensação de todos os valores da amostra. Entretanto, cada uma representa a 
amostra de um modo diferente. A média da amostra geralmente é o valor mais útil. Devido 
ao fato de usar todos os valores na sua computação, a média reflete todos os elementos da 
amostra. A principal desvantagem da média é sua sensibilidade a um valor extremo. Por 
exemplo, em uma companhia imaginária chamada Widget Inc., o salário do proprietário é 
$ 100.000 por ano, enquanto o salário de cada .um dos nove empregados é S 10.000. O 
salário médio da Widget é $ 19.500, mas esse número não representa fielmente a situação! 

Em casos como o de dispersão de salários na Widget, usa-se a moda em vez da 
média. A moda dos salários em Widget é $ 10.000 - um número que reflete mais 
acuradamente a situação real. Entretanto, a moda também pode ser enganadora. Considere 
uma companhia de carros que fabrica carros em cinco cores diferentes. Em uma dada 
semana, ela fabricou 
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100 carros verdes 
100 carros laranja 
150 carros azuis 
200 carros pretos 
190 carros brancos 

Aqui, a moda da amostra é preta, pois foram fabricados 200 carros pretos, o que é mais do 
que qualquer outra cor. Entretanto, seria errado sugerir que a companhia de carros fabrica 
principalmente carros pretos. 

A mediana é interessante porque sua validade é baseada na esperança de que a 
amostra reflita a distribuição normal. Por exemplo, se a amostra for 

123456789 10 

então a mediana é. 5 ou 6 e a média é 5,5. Neste caso, a mediana e a média são similares. 
Entretanto, na amostra 


1 1 1 1 5 100 100 100 100 

a mediana ainda é 5, mas a média é em torno de 46. 

Em certas circunstâncias, não se pode contar nem com a média, nem com a 
moda, nem com a mediana para se obter um valor significativo. Isso nos leva a dois dos 
numeros mais importantes em estatística - a variância e o desvio padrão. 


A VARIÂNCIA E O DESVIO PADRÃO 

Embora o resumo mono numerário (como a média, moda e mediana) seja muito 
conveniente, ele pode ser enganador. Pensando um pouco nesse problema, você verá que a 
causa da dificuldade não é o valor em si, mas o fato dele não conter nenhuma informação 
sobre as variações dos dados. Por exemplo, na amostra 

11119999 


a média é 5; entretanto, não há nenhum elemento na amostra que seja próximo de 5. O que 
você provavelmente gostaria de saber é quão próximo está cada elemento da média; em 
outras palavras, qual a variabilidade dos dados. Saber a variabilidade dos dados o ajudará 
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a interpretar melhor a média, a mediana e a moda. Você pode determinar a variabilidade 
de uma amostra, computando a variância e o desvio padrão. 

A variância e sua raiz quadrada, o desvio padrão, são números que expressam o 
desvio médio da média da amostra. Dos dois, o desvio padrão é o mais importante. Ele 
pode ser pensado como a média das distâncias que os elementos estão da média da 
amostra. A variância é computada como: 


V = 


1 

N 



(D,-A/) 2 


onde N é o número de elementos na amostra, e M é a média da amostra. Você deve elevar 
ao quadrado a diferença entre a média e cada elemento para produzir apenas números 
positivos. Se os números não fossem elevados ao quadrado, eles sempre tenderiam a 0. 

A variância produzida por essa fórmula, V, é de valor limitado pois é difícil de 
entender. Entretanto, sua raiz quadrada, o desvio padrão, é o número que você está 
realmente procurando. O desvio padrão é conseguido primeiro achando-se a variância e 
depois tomando-se sua raiz quadrada: 





N ' 

^ (Pt-M? 
i= 1 


onde N é o número de elementos na amostra e M é a média da amostra. 
Como exemplo, para a amostra 


11 20 40 30 99 30 50 


você computa a variância do seguinte modo: 
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Soma 

Média 


D 

D-M 

(D-M? 

11 

-29 

-841 

20 

-20 

-400 

40 

0 

0 

30 

-10 

-100 

99 

59 

3481 

30 

-10 

-100 

50 

10 

100 

280 

0 

5022 

40 

0 

717,42 


Aqui, a média das diferenças elevadas ao quadrado é 717,42. Para derivar o desvio 
padrão, você simplesmente toma a raiz quadrada desse número; o resultado é 
aproximadamente 26,78. Para interpretar o desvio padrão, lembre-se de que ele é igual à 
distância média que os elementos mantêm da média da amostra. 

O desvio padrão nos diz com que aproximação a média representa a totalidade 
da amostra. Se você possuísse uma fábrica de doces, e seu supervisor de produção 
relatasse que a média da produção do mês passado foi 2.500 mas o desvio padrão foi 
2.000, você saberia que a linha de produção precisa de uma supervisão melhor! 

Se sua amostra segue uma distribuição normal padrão, então cerca de 68% da 
amostra estará dentro de um desvio padrão da média, e cerca de 95% estará dentro de dois 
desvios padrões. 

A seguinte função calcula o desvio padrão de uma dada amostra: 

function Oev_Pad < dado: Matriz.; nu»; integer); real; 
v ar 

t: ínteger.J 
padfwedi real; 

begi n 

med:=Media( dado,num ); 
pad:=0; 

for t:=l to num do 

pad;=pad+< < dadoC 11-ied )*< dadoC t]-med ) ); 

padi=pad/num; 

Dev_Pad:=Sqrt<pad ); 

end; (Qev_Pad 5 
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REPRESENTAÇÃO SIMPLES NA TELA 


A vantagem em utilizar gráficos com estatísticas é que, juntos, eles podem veicular o 
significado clara e acuradamente. Um gráfico também mostra, num relance, como a amos¬ 
tra está realmente distribuída e de que forma os dados variam. Esta discussão está limitada 
a gráficos bidimensionais, que utilizam o sistema de coordenadas X-Y. (A criação de 
gráficos tridimensionais é uma disciplina em si mesma e está além do objetivo deste livro.) 



Figura 6-2 Exemplos de um gráfico de barras ( a ) e de pontos (b). 

Há duas formas comuns de gráficos tridimensionais: o gráfico de barras e o 
gráfico de pontos . O gráfico de barras utiliza barras maciças para representar a magnitude 
de cada elemento; o gráfico de pontos utiliza um ponto único por elemento, localizado nas 
coordenadas X e Y. A Figura 6-2 mostra um exemplo de cada. 

O gráfico de barras geralmente é usado com um conjunto relativamente pequeno 
de informações, como o produto nacional bruto nos últimos dez anos ou a produção 
percentual de uma fábrica em base mensal. 0 gráfico de pontos é geralmente usado para 
mostrar um grande número de pontos de dados, como : preço diário de estoque através do 
ano. Uma modificação do gráfico de dados, que conecta os pontos de dados com uma 
linha cheia, é util para traçar projeções. 

Aqui está um procedimento simples que cria um gráfico de barras no IBM PC. 
Através de algumas funções externas do Turbo Pascal, a função usa as capacidades 
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gráficas internas do IBM PC. Os procedimentos GraphColorMode, Palette, Draw e Piot 
são fornecidos pelo Turbo Pascal. 

procedure Br _S i wp lesí dado Matriz; nu»: ir.teger); 

{Desenha um grafico ob barra usando os graf icos do IBM-PfT. > 
vai' 

t,incr: integerj 
a : real; 
car: cKar; 

begi n 

GraphColorhode; 

Paletteí 0 >; 

BotoXY< 1> 25 ); Wr i teLní TTi n ); 

BotoXY < 1,1 ); Wr i teln( kzx )} 

GotoXY<3B,25 ); WriteLn(nu» >; 

Drauí 0,190,200,190,1 >; C base ) 
for t:=l to nuiw do 
begi n 

a : =dadoC t 3; 
y : =trunc( a ^ * 
i ncr:=10; 

x :=( ( t-1 )*incr )+20; 

Cr du( x,190,x,190-y,2 3; 
end; 

ReadCcar 
TextMode; 

end; CGraf_5i»ples3 

No IBM PC, o modo de gráfico colorido, de máxima resolução, oferece uma resolução de 
320 x 320 e é instalado pela chamada de GrapbCok>rMode. O procedimento GotoXY 
coloca o cursor na posição X-Y desejada. O procedimento Draw tem a forma geral 


drawCJ nicial, Y..inicial, X-final, Y-jinal, cor); 


onde todos oc valores devem ser inteiros. Consulte o Manual do Usuário do Turbo Pascal 
para informações adicionais. 

E^rtr rotina simples tem uma limitação séria - ela pressupõe que todos os ciados 
estarão entre 0 e 199, pois os números que podem ser usados para chamar a função gráfica 
Draw estão entre 0 e 199. Esta limitação é boa apenas na improvável hipótese de todos os 
elementos de dados estarem neste intervalo. Para fazer com que a rotina manipule 
unidades arbitrariamente dimensionadas, você deve normalizar os dados antes de traçar o 
gráfico, para reescaloná-los e ajustá-los à escala exigida. O processo de normalização 
envolve a determinação de uma razão entre a escala real dos valores de dados e o limite 
físico de resolução da tela. Cada elemento de dado pode então ser multiplicado por essa 
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razão para produzir um número que se ajuste à escala da tela. A fórmula para fazer isso no 
eixo Y do PC é 


T = Y * 


200 

(máx - min) 


onde réo valor usado quando da chamada da função que desenha o gráfico. Essa mesma 
fórmula pode ser usada para aumentar a escala quando o intervalo coberto pelos dados é 
muito pequeno. Isso resulta em um gráfico que preenche a tela tanto quanto possível. 

O procedimento GrafJBar escalona os eixos X e Y e traça um gráfico de barras 
de até 300 elementos. Admite-se que o eixo X seja o tempo e tenha incrementos de uma 
unidade. Geralmente, o procedimento de normalização encontra o maior e o menor valor 
na amostra e então calcula sua diferença. Esse numero, que representa a distância entre o 
mínimo e o máximo, é usado para dividir a resolução da tela. Para o IBM PC, esse número 

prDCBdufe Graf_Bar(dado: Matriz: nu»: integer ); 

{desenha u» grafico de barra usando os gráficos do IBM PC } 
var f 

x , y,»ax,»in,t, incr: integer; 
a , nor»,d i v : real; 
ch: char; 

begi n 

GraphColorliode; 

PaletteC 0 ); 

[acha »in e»ax para normalizar os dados 1 
»ax:=GetMax(dado,nu»); 

»in:=GetMin(dado,nu»); * 
if »in > 0 then »in=0; 
div:=iax-»inj 
nor»:=190/div; 

GotoXYÍ 1,Z5 )í WriteLnC »i n ); 

GotoXYC 1,1 >; Wr i tel_n( »ax >; 

GotoXYC38,25 ); WriteLnínu» )í 
for t:=1 to 19 do Plot<0,t*10,1>; 

Draw( 0,190,320,190,1 )| 
for t:=l to nu» do 
begi n 

a:=dadoC t 3-»in ; 
d : = a*r»or»; 
y : =trunc( a ); 
incr:=300 div nu»; 
x:=( < t-1 )*incr >+20 j 
Draw( x,190,x,190-y,2 >; 
end; 

Read( ch ); 

Texthode,* 


end; C6raf_Bar} 
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é 190 para o eixo X (porque você precisa de espaço para margens e linha-base). A razão é 
então usada para converter os dados da amostra na escala adequada. 

Essa versão também imprime uma escala ao longo do eixo Y, onde cada intervalo 
representa 1/20 da diferença entre os valores máximo e mínimo. A Figura 6-3 dá uma 
amostra de GrafJBar com 20 elementos. De modo algum GrafJBar fornece todas as 
características que você poderia desejar, mas ele representará uma amostra simples, 
acuradamente. Você pode achar fácil expandi-lo para que se ajuste às suas necessidades. 

Apenas uma ligeira modificação em GrafJBar é necessária para se fazer um 
procedimento que trace um gráfico de pontos. A maior alteração modifica a função Draw 
para uma que trace apenas um ponto. Essa função é chamada Plot. Sua forma geral é 

Plot (x, y, cor); 

onde rje cor são inteiros. O procedimento GrafJPontos é mostrado a seguir. 

procedure Gr af_Pontos(dado: Matriz; num,yi»in,ymax,xwax: integer); 
var 

x , y , t, i rcr; 1nteger; 

a,norw,div: real; 

beg i n 

{acha wax e min para normalizar cs dados} 
if ymin > 0 then ywin:=0; 
div:=ynoax-yTr>in; 
norm:=190/div; 

GotoXY( 1 , 25 ); Wr i teLn( yra i n ); 

GotoXY< 1,1); WriteLn< ywax ); 

GotoXYC 38,25 >; WriteLní xmax )J 
for t: =1 tc 19 do PIdK 0,t*10,1 >, 

Draw( 0,190,320,190,1); 
for t:=l to num do 
begi n 

a:=dadoC t 3-ymin; 
a :=alnor»; 
y:=trunc( a); 
incr:=300 div xaaxj 
x J=<(t-1)*incr ) + 20; 

Plot< x,190-y, 2); 
end; 

endj {Graf_Pontos} 

Em GrafJPontos, os valores de dados mínimo e máximo são passados para o 
procedimento, em vez de serem computados pelo procedimento como em GrafJBar. Isso 
o torna capaz de representar séries de dados múltiplos na mesma tela, sem ter de mudar de 
escala, criando um efeito de sobreposição. A Figura 6-4, que mostra um gráfico de pontos 
de uma amostra de 30 elementos de dados, foi produzida por este procedimento. 



Estatística 


149 



Figura 6-3 Um gráfico de barras de uma amostra, produzido por Graf_Bar. 


PROJEÇÕES E A EQUAÇÃO DE REGRESSÃO 


Informação estatística é ffeqüentemente usada para realizar “adivinhações informadas” 
sobre o futuro. Mesmo que todo mundo saiba que o passado não prediz necessariamente o 
futuro e que existem exceções a toda regra, dados históricos são usados desse modo. 
Muito frequentemente, passado e presente tendem a continuar no futuro. Quando isso 
acontece, você pode tentar determinar valores específicos em pontos futuros no tempo. 
Esse processo é chamado projeção , ou análise de tendência . 
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Figura 6-4 Um gráfico de pontos de uma amostra, produzido por GrafJPontos. 

Por exemplo, considere um estudo fictício óe dez anos de expectativa de vida, 
que tivesse coletado os seguintes dados: 


Ano 

Longevidade 

1970 

69 

1971 

70 

1972 

72 

1973 

68 

1974 

73 

1975 

71 

1976 

75 
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Ano 

Longevidade 

1977 

74 

1978 

78 

1979 

77 


Você poderia se perguntar se aqui há realmente uma tendência. Se houver, você poderá 
querer saber em que direção ela está indo. Finalmente, se de fato houver uma tendência, 
você poderá imaginar qual será a expectativa de vida, digamos, em 1985. 

Primeiro olhe para o gráfico de barras e para o gráfico de pontos desses dados, 
como mostrado na Figura 6-5. Pelo exame desses gráficos, você pode concluir que os 
períodos de vida em geral estão se tomando mais longos. Além disso, se você colocasse 
uma régua nos gráficos que se ajustasse aos dados e desenhasse uma linha que se 
estendesse até 1985, você poderia projetar que a expectativa de vida seria em tomo de 82 
anos. Entretanto, mesmo se você se sentisse confiante na sua análise intuitiva, 
provavelmente preferiria utilizar um método mais formal e exato para projetar tendências 
de expectativa de vida. 

Dado um conjunto de dados históricos, a melhor maneira de fazer projeções é 
encontrar a reta de melhor ajuste em relação aos dados. Foi isso que você fez com a régua. 
Uma reta de melhor ajuste representaria com maior aproximação cada ponto dos dados e 
sua tendência. Embora alguns ou até mesmo todos os pontos reais possam não estar na 
reta, a Hnha os representa melhor. A validade da reta é baseada na proximidade com que 
vêm os pontos de dados da amostra. 

Uma reta em espaço bidimensional possui a seguinte equação básica: 

Y=a+bX 

onde Y é a variável independente, X a variável dependente, aéo intercepto de Y, e b é a 
inclinação da reta. Portanto, para determinar a reta que melhor se ajuste a uma amostra, 
você deve determinar az b. 

Vários métodos podem ser usados para determinar os valores deflei?, mas o 
mais comum (e geralmente o melhor) é chamado de método do menor quadrado. Ele tenta 
minimizar a distância entre os verdadeiros pontos de dados e a reta. O método envolve 
duas etapas. A primeira computa b, a inclinação da reta, a segunda encontra a, o 
intercepto de Y. Para encontrar, use a fórmula: 
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Figura 6-5 Gráfico de barras (a) e de pontos ( b ) da expectativa de vida. 
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N 

£ (X,.-A4)(Y,.-M y ) 

b= — - 

N 

E 

i— 1 

onde Aí^ é a média da coordenada X e M y é a média da coordenada Y. A dedução desta 
formula está além do propósito deste livro, mas tendo achado b você poderá usá-lo para 
computar a, como mostrado aqui: 


a = M x -bM y 

Depois de ter calculado a e b, você pode fazer com que X assuma qualquer valor e ache o 
de Y. Por exemplo, se você utilizar os dados de expectativa de vida, achará que a equação 
de regressão é mais ou menos essa: 

Y = 67,46 + 0,95 * X 

Portanto, para encontrar a expectativa de vida em 1985, que está 15 anos além de 1970, a 
fórmula será: 


expectativa de vida - 67,46 + 0,95 * 15 
= 82 

Entretanto, mesmo com a reta de melhor ajuste para os dados, você ainda pode 
querer saber quanto a reta realmente se relaciona bem com os dados. Se a reta e os dados 
tiverem apenas uma ligeira correlação, então a reta de regressão é de pouca utilidade. 
Entretanto, se a reta se ajustar bem aos dados, então ela é um indicador muito mais válido. 
O modo mais comum de determinar e representar a correlação dos dados com a reta de 
regressão é calcular o coeficiente de correlação, um número entre 0 e 1. O coeficiente de 
correlação é, essencialmente, uma percentagem relacionada com a distância entre cada 
ponto e a reta. Se o coeficiente de correlação for 1, então os dados corresponderão 
perfeitamente à reta; ou seja, cada elemento da amostra também estará sobre a reta de 
regressão. Um coeficiente 0 significa que não existem pontos na amostra que realmente 
estejam na reta. A fórmula para encontrar o coeficiente de correlação cor está a seguir 
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N 

1 E (X i -M x )(.Y i -M y ) 
N / = 1 


2 

/=! 

Aqui é a média da coordenada de X e Aí v é a média da coordenada de Y. Geralmente, 
um valor 0,81 é considerado uma forte correlação. Isso indica que cerca de 66% dos dados 
estão sobre a reta de regressão. Para converter qualquer coeficiente de correlação em uma 
percentagem, simplesmente eleve-o ao quadrado. 

Aqui está o procedimento Regressão. Ela utiliza os métodos recém-descritos 
para encontrar a equação de regressão e o coeficiente de correlação, e também faz um 
gráfico de pontos tanto dos dados de amostra quanto da reta. 

procedure Regressaoí dado: Matriz: nuw: intege r 
(calcula a equacao de regressão e □ coeficiente de 
correlação - então imprime os oarios e a linha de regressão , 3 

var 

a.bj x_wed. y_med » terop ,temp 2.cor: realj 
dado2: Matriz! 
t? min. max : mteger; 
c a r: char; 

beg i n 

(Calcula a media de x e y} 
y_wed:=0! x_»ed:=0; 

for t:=l to num do 
begin 

y_»ed:=y_roed+dado(t 3 í 

x_»ed: =x_wed+t í (porque x e' tempo) 
end; 

x_»ed: =x_»ed/nu»! 
y_wed : = y_wed/nuw>; 

(calcula o fator b da equacao de regressão} 
tewip:=0; te»p2:=0í 
for t:=l to nu» do 
beg i n 

te»p:=te»p+(dadoC t,3-y_»etí t-x_»ed 
te»p2:=te»p2+(t-x_»ed )*( t—x_»ed ): 
end i 

b:=te»p/te»p2; 

(calcula a equacao de regressão] 
a: = y_»ed-<blx_wed ); 
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(calcula o coeficiente de correlacaol 

for t:=i to nuw do dado2(t3:=t> [copia os dados 3 

cor:=te»p/nuw; 

cor :=cor/( Dev_Pad< dado } nuw )*Dev_Pad< dadoZjnuw > '> I 

WriteLn('R equacao de regressão e'' : Y = ' . a ; 15 : 5 . ' + ' . b : 15 : 5 . ' * X'' >; 

WriteLm'0 coeficiente de correlacao e'' : ' , cor : 15 : 5 ) 

Writeí'I»priiftir dados e linha de regressão? CS/N } ’ ): 

Read(car); WriteLn: 
car:=UpCase(car ); 
if car O 'N' then 
beg i n 

GrapKColorMode! 

Paletteí0 )} 

(desenha os gráficos) 

for t:=l to miw*2 do dadc2i t3:=a + <b*t(Matriz de regressão) 
wm:=GetMiní dado., na» >*2: 

»ax:=GetMax< dado>nuw )X2 j 

ScatterPlot( dado>nu»j»in,»ax.nuwX20.: 

ScatterPlotC dado2 í nu»^2,i«in í wax,nu»^2 ).; 

Read; 

Textliode ; 
end j 

end; (Regressão) 

Um gráfico de pontos tanto dos dados de amostra quanto da reta de regressão é mostrado 
na Figura 6-6. O ponto importante a recordar, quando do uso de projeções como esta, é 
que o passado não prediz necessariamente o futuro - do contrário, não haveria graça! 


FAZENDO UM PROGRAMA ESTATÍSTICO COMPLETO 


Até aqui, este capítulo desenvolveu diversas funções que executam cálculos estatísticos 
em populações de variável única. Esta seção reúne as funções para formar um programa 
completo para analisar ciados, imprimir gráficos de barras ou de pontos, e fazer projeções. 
Antes que você possa desenhar um programa completo, deve definir um registro para 
manter informações de dados das variáveis e algumas rotinas de apoio necessárias. 

Primeiro você precisa de uma matriz que detenha as informações das amostras. 
Você pode usar uma unidimensional de ponto-flutuante chamada dado, de tamanho MAX. 
MAX é definida de modo que se ajuste à maior amostra que você necessite, que nesse caso 
será 100. As definições de tipo constante e os dados globais são mostrados aqui: 
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program Estatística; 
cons t 

Mflx = 100; 


t ype 

strSO = stringC BO]J 
Item = real; 

Matriz = arrayC1..MRX3 □£ Iterc; 

var 

dado:Matriz; 
a , m, dpd : real J 
nuT b : integer ; 
car: char; 
arq:£ile of Itew; 



Figura 6-6 Reta de regressão para expectativa de vida. 
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Além das funções estatísticas já desenvolvidas, você também precisa de rotinas 
para gravar e carregar dados. A rotina Grava também deve armazenar o numero de 
elementos da amostra e a rotina Le deve ler o número de volta. 

procedure Gravai dado: Matriz; num: integer ); 
var 

t:integer: 

no»e_arq :st.r ingC 80 3 : 
te to p : real; 

beg i n 

Write< 'Nome do arquivo: ' ): 

Read< nowe_arq WriteLn; 

Rssigní arq,nowe_arq): 

Rewr i te( ar q ); 

t e To p : = n u w y C to u d a o tipo i 

Wr í te< arqjtemp ); 

for t:=i to num do Wri te* ar q } dadoC t3>; 

Closeí arq ); 
end; (Grava) 

procedure Lej 
var 

t:integer; 

nowe_arq:string(801; 
tewp : rea 1; 

beg i n 

Write< 'Nome do arquivo: ] • 

Readi nowe_ar q ): WriteLn.: 

RssignC arq,nome_arq); 

Reset( arq ); 

Read< arq,temp >; 
num:=tr unc( tewp '>; 

for t:=l to nuw do Readí ar q.. dadoC t 3 > • 

Closei arq ) 
end; (L e } 


Para sua conveniência, aqui está o programa de estatística completo: 


proqram Estatística? 
cons t 

MAX = ÍOO; 
type 

str80 = stnngC80]; 

I tem = rea1; 

Matriz = arrayCl . .MAX] of Item; 

var 

dado:Matriz; 
a,m,md,dpd:real; 
num:integer; 
car:char; 
arqsfile of Item; 
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procedure QuickSort (var dado: Matriz; 
procedure qs (l,r: integer; var at: 
var 

i , j : integer; 
x,y: I tem; 
begin 

i : = 1 ; j : =r ; 
x:=it[(1 *r ) div 2 ] ; 
repeat 

while it[i] \ x do i:=i+l; 
while x < it[j ] do j:=j- 1; 
if 1 <= j then 

begin 

y:= 1 t (13 ; 
it[l] :=lt[j ] ; 
it[j]:=y; 
i:=i+l; j:=j-1 ; 
end ; 

unti 1 i > j ; 

i i 1 <. j then qs(l ,j,it) ; 
i i 1 < r then qs(i,r,it) ; 
end ; 

begin 

qs(l,conta,dado); 
end; (quicksort) 


conta: integer); 
Matrxz); 


function Pronto(car: char;s:str80 ) : booiean; 
var 

t:integer; 


begin 

Pronto:=FALSE; 

for t:=l to length(s) do 

if s[t]=car then Pronto:=TRUE; 
end; {Pron to) 


function Menu:char; 
var 

c ar:char; 

beg i n 

WriteLn; 
repea t 

WnteLn( ' Digitar dados' ) ; 

WriteLn( 'Mostrar dados' ); 

WnteLn( 'Estatísticas Basicas' ); 

WnteLnf 'Regressão e grafico de pontos ); 
WnteLn ( ' Barra ' ) ; 

WriteLn( * Gravar ) ; 

Wr i teLn( ’Ler * ); 

WriteLn(‘Fim'); 

WnteLn ; 

Wnte( ‘Escolha um (D, M, E, R, B, G, L, F): '); 

Read(car); WriteLn; 
car:=UpCase(car); 
unti 1 Pronto(car, 'DMERBGLF‘ ) ; 
menu;-car; 
end; (Menu) 


procedure Mostra(dado:Matriz ; num:integer); 
var 

t:integer; 
begin 

for t:=1 to num do WriteLn(t, ‘ : * , daúo[13:15:5) ; 
WriteLn; 
end; (Mostra) 
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procedure Digitacao(var dado: Matriz); 
var 

t:integer; 
begin 

Wri te ('Numero de íterrs?: ); 

Read(num); WriteLn; 

for t:=l to num do begin 

Write('Digite item ,t, ' : ) ; 

Read(dado[t]) ; WriteLn; 
end ; 

end; (Digitacao) 

function Media(dado: Matriz; num: integer): real; 
var 

t: integer; 
med: real; 

begin 

med:=0; 

for t:=l to num oo med : =med+dado[ 13 ; 

Media j =med/num; 
end; (Media) 

functior. Dev_Pad (dado: Matriz; num: integer): real; 
var 

t: integer; 
pad,med: real; 

begin 

med : =f1eaia ( dado , num ) ; 
pad:=0{ 

tor tt=l to num do 

pad:=pad+((dado[ t]-med)*(dado[t]-med)) ; 

pad:=pad/num; 

Dev_Pad:=Sq r t(pad) ; 

end; (Uev_Pad) 

function Moda(dado: Matriz; num: integer): real; 
var 

t ,w,conta,conta_velho: integer; 
md,md_velha: real; 

begin 

md_velha:=0; conta_ve1ho:=0; 

for t:=l to num do 

begin 

md:=dado[t 3; 
conta:=1; 

tor w:=t-*-l to num do 

if md=dado[w] then conta:=conta + 1; 
if conta > conta_velho then 
beg in 

mtí_ve1 ha:=md; 
con ta_ve1ho:=conta; 
end; 
end; 

Moda :=md_ve1 ha; 
end; (Moda) 

function Mediana (dado: Matriz; num: integer): real; 
var 

dtemp: Matriz; 
t: integer; 
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be gin 

for t: = l to num do dtempC 13: =dadoC t ] ; (copia daods para ordenacao) 
QuickSort(dtemp,num ) ; 

Mediana:=dtefnp£num div 2]; (elemento central} 
end; (Mediana} 

function Maximo(dado í Matri2; num: integer): integer; 
var 

t: integer; 
max:rea1; 

beg in 

max:=dado[1]; 
for t:-2 to num do 

if dado[t] > max then max:=dado[t]; 

Maximo:=trunc(max ) ; 
end; (Máximo} 

function Minimo(dado: Matriz; num: integer): integer; 
var 

t: integer; 
min :real; 

begin 

min :=dado(1J; 

for t:=2 to num do 

if dado[t] > min then mtn:=dado[t]; 

Minimo:=trunc (min) ; 
end; {Mínimo} 

procedure Graf_Bar(dado: Matriz; num: integer); 

(desenha um grafico de barra usando os gráficos do IBM PC } 
var 

x ,y,max,min,t,incr: integer; 
a,norm,dif: real; 
ch: char; 

begin 

GraphColorMode; 

Palette(O); 

(acha min e max para normalizar os dados} 
max:=Maximo(dado , num) ; 
min:=Minimo(dado,num); 
if min > 0 then min:=0; 
dif :=max-min; 
norm:=190/dif; 

GotoXY(1,25); WriteLn(min); 

GotoXY(1,1); WriteLn(max); 

GotoXY(38,25); WriteLn(num); 
for t:=1 to 19 do P1ot(0,t*10,1); 

Draw(0,190,320,190,1); 
for t:=l to num do 
begin 

a :=dado[t]-min; 
a : =a*norm; 
y: = trunc(a) ; 
incr:=300 div num; 
x:=((t-l)*incr)+20; 

Draw(x,190,x,l90-y,2); 
end; 

Read(ch); 

TextMode; 

end; (Graf_Bar> 


procedure Gràf_Pontos(dado: Matriz; num, ymin ,ymax,xmax: integer); 
var 

x,y,t,mcr: integer; 
a,norm,dif: real; 
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be gin 

(acha max e min para normalizar os dados) 
if ynun > 0 then ymin:=0; 
dif : =ymax-ymin ; 
norm;=190/dif; 

GotoXY(1,25); WriteLn( ymin ); 

GotoXY(l,l); WriteLn(ymax); 

GotoXY(38,25); WriteLn(xmax); 
for t: =1 to 19 do P lot ( 0 , t*10,1 ) ; 

Draw(0,190,320,190,1) ; 
for t:=l to num do 
beg in 

a:=dado[t]-ymin; 
a:=a*norm ; 
y:=trunc(a); 
incr:=300 div xmax; 
x : = ( (t-1)lincr)+20; 

P1 o t(x,190—y,2); 
end ; 

end; ( Gr af _Pontos} 

procedure Regressão(dado: Matriz; num: integer); 

(calcula a equacao de regressão e o coeficiente de 
correlacao - então imprime os dados e a linha de regressão.) 


a,b,x_med,y_med,temp,temp2,cor: real; 
dado2: Matriz; 
t,min f max: integer; 
car: char; 

begin 

(Calcula a media de x e y> 
y _ned:=0; x _med:=0; 
for t:=l to num do 
begin 

y_med : =y_med+dacto( t ] ; 

x_med:=x_med+t; (porque x e' tempo) 
end ; 

x _med:=x_med/num; 
y_med:=y_med/num; 

(calcula o fator b da equacao de regressão) 
temp:=0; temp2:=0; 
for t:=l to num do 
beg in 

temp:=temp+(dado(t)-y_med)*(t-x_med) ; 
temp2:=temp2+(t-x_med)*(t-x _med) ; 
end ; 

b:=temp/temp2; 

(calcula a equacao de regressão) 
a:=y_med-(b*x_med); 

(calcula o coeficiente de correlacao) 

for t:=i to num do dado2(t]:=t; (copia os dados) 

cor : =*temp/num ; 

cor:=cor/ ( Dev_Pad(dado,num)*Dev_Pad(dado2,num)); 

WriteLn('A equacao de regressão e'' : Y = ',a:15:5,'+,b:15:5,'* X)| 

WriteLn(‘0 coeficiente de correlacao e*’ : ',cor:15:5); 

Write(’Imprimir dados e linha de regressão? (S/N) ); 

Read(car); WriteLn; 
car:=UpCase(car); 
if car <> 'N* then 

begin 

Gr aphColorMode; 

Pa1ette(0); 

(desenha os gráficos) 

for t: = l to numl2 do dado2Ct]:=a+(b*t) ; (Matriz de regressão) 
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min : =Minimo ( dado, num ) *2 ; 
max:=Maximo(dado,num)*2; 

Graf _Pontos( dado, num , min T max ,na«#i2) ; 
Graf _Pontos(dado2,num*2,min,max,num*2); 
Read; 

TextMode; 
end ; 

end; (Regressão) 

procedure Gravaídado: Matriz; num:inteçer) ; 
var 

t:integer; 

nome_arq:string[80); 
temp:real; 

begin 

Write('Nome do arquivo: ' ); 

Read(nome_arq) ; WnteLn; 

Assign< arq , nome_arq); 

Rewrite(arq); 

temp:=num; (muda o tipo) 

Wn te (arq, temp ) ; 

■for t: =1 to num do Wr i te ( arq , dadoC t j ) ; 
Close(arq); 
end; (Grava) 

procedure Le; 
var 

t:integer; 

nome_arq:string[80]; 
temp:real; ■ 

üeg in 

Write('Nome do arquivo: '); 

Read(nome_arq); WriteLn; 

Assign(arq,nome_arq); 

Reset(arq); 

Read(arq,temp); 
num:=trunc(temp); 

tor t:=l to num do Read(arq,dado[tj) ; 

C1ose(arq) 
end; (Le) 


Deg in 

repeat 

car:=UpCase(menu); 
case car of 

'0': Digitacaoídado ); 

' E': begin 

a:=Media(dado,num); 
m:=Mediana(dado,num) ; 
dpd:=Dev_Pad(d ado, num) ; 
md:=Moda(dado,num); 

WriteLn('Media: ,a:i5:5); 

WriteLn('Mediana: ,*:15:5); 

WriteLn('Desvio Paorao: ,dpd:15:5); 
WriteLn ( * Moda: ,md:15:5)j 

WriteLn; 
end ; 

'M': Mostra(dado,nuro); 

'B': Graf__Bar(dado,num); 

■R': Regressão(dado,num); 

G'j Grava(dado,num); 

"L : Le; 
end ; 

unti1 car='F'; 


end 
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USANDO O PROGRAMA DE ESTATÍSTICA 


Para dar uma idéia de como você pode usar o programa estatístico, desenvolvido neste 
capítulo, aqui está uma análise simples do mercado de valores para a Widget, Inc. Como 
investidor, você estará tentando decidir se vale a pena investir na Widget através da 
compra de ações; se você deve vender (vendendo ações que você não tem, na esperança de 
uma queda rápida de preços, de modo a poder comprá-las mais tarde por um preço mais 
barato); ou se você deve investir em outro lugar. 


Mês 


Preço das Ações (Cz$) 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 


10 

10 

11 

9 

8 

8 

9 

10 

10 

13 

11 

11 

11 

11 


15 


12 


16 

17 

18 

19 

20 
21 
22 

23 

24 


13 

14 
16 
17 

15 

15 

16 
14 
16 


Você deve, primeiro, descobrir se o preço da ação da Widget registrou uma tendência. 
Depois de introduzir os números, você encontrará as seguintes estatísticas básicas: 


Média: 12,08 
Mediana: 11 


Desvio padrão: 2,68 
Moda: 11 
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Figura 6-7 Gráficos e informações estatísticas sobre os lucros da Widget nos últimos 24 meses. 

Em seguida, você deve traçar um gráfico de barras do preço da ação, como mostrado na 
Figura 6-7. Pode haver uma tendência, mas você deve executar uma análise de regressão 
formal. A equação de regressão é 


Y = 7,90 + 0,33 * X 

com um coeficiente de correlação de 0,86, ou de aproximadamente 74%. Isso é bastante 
bom - de fato, há uma tendência definida. A impressão de um gráfico de pontos, como 
mostrado na Figura 6-8, faz o crescimento dessa linha imediatamente aparente. Tais 
resultados poderiam fazer com que um investidor deixasse de lado quaisquer precauções e 
comprasse 1.000 ações o mais rápido possível. 





Estatística 
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PENSAMENTOS FINAIS 


A aplicação correta da análise estatística requer um entendimento geral de como os 
resultados se originam e o que eles significam. Como no exemplo da Widget, é fácil 
esquecer que os eventos passados não podem ser culpados por circunstâncias que 
poderiam afetar radicalmente o produto final. Confiança cega em evidências estatísticas 
pode causar resultados muito perturbadores. Estatísticas são usadas para refletir a natureza 
- mas não devemos esperar que a natureza reflita as estatísticas. 





As pessoas que gostam de computadores e de programação, freqüentemente apreciam 
brincar com códigos e cifras. Talvez a razão para isso seja que todos os códigos envolvem 
algoritmos, assim como os programas. Ou talvez essas pessoas simplesmente tenham uma 
afinidade com coisas crípticas que a maioria das pessoas não possam entender. Todos os 
programadores parecem encontrar grande satisfação quando um não-programador olha 
para a listagem de um programa e diz alguma coisa como, “Meu Deus, isso realmente 
parece complicado!” Afinal de contas, o próprio ato de escrever um programa é chamado 
de “codificação”. 

Proximamente associado ao tópico de criptografia está o de compressão de 
dados . Compressão de dados significa compactar informação em um espaço menor do que 
o normalmente usado. Devido ao fato da c omp ressão de dados poder representar um papel 
na criptografia e utilizar muitos dos mesmos princípios que esta, ela foi incluída neste 
capítulo. 

A criptografia baseada em computadores é importante por duas razões 
principais. A mais óbvia é a necessidade de manter dados secretos seguros em sistemas 
compartilhados. Embora a proteção por senhas seja adequada para muitas situações, 
arquivos importantes e confidenciais são comumente codificados para fornecer um nível 
mais alto de proteção. A segunda utilidade de códigos baseados em computador é na 
transmissão de dados. Os códigos não são usados apenas para coisas como informações 
secretas governamentais, mas também por redes transmissoras para proteger transmissões 
céu-terra. Por serem tão complexos, esses procedimentos de codificação são rotineiramente 
feitos por computador. 
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Compressão de dados é eomumente usada para aumentar a capacidade de 
armazenamento de dados de vários dispositivos annazenadores. Embora o custo dos 
dispositivos annazenadores de dados tenha caído muito nos últimos anos, sempre haverá 
necessidade de se colocar mais informações em áreas menores. 


UMA CURTA HISTÓRIA DA CRIPTOGRAFIA 


Embora ninguém saiba quando começou a escrita secreta, uma tabuinha cuneiforme feita 
por volta de 1500 a.C. contém um dos mais antigos exemplos conhecidos. Ela contém uma 
fórmula codificada para elaborar verniz para cerâmica. Os gregos já usavam códigos em 
475 a.C., e a classe alta de Roma, durante o reinado de Júlio César frequentemente usou 
cifras simples. Durante a Idade Média o interesse na criptografia (assim como em muitas 
outras investigações) decresceu, exceto entre os monges, que ocasionalmente a usavam. 
Com o advento da Renascença Italiana, a arte da criptografia floresceu novamente. No 
tempo de Luis XIV, na França, um código baseado em 587 chaves, selecionadas 
aleatoriamente, foi usado para mensagens governamentais. 

No século XIX, dois fatores determinaram o progresso da criptografia. O 
primeiro foi as estórias de Edgar Allan Poe, como por exemplo “The Gold Bug ”, onde 
o uso de mensagens codificadas excitava a imaginação de muitos leitores. O segundo foi a 
invenção do telefone e do código Morse. O código Morse foi a primeira representação 
binária (pontos e traços) do alfabeto a ter grande uso. Durante a I Guerra Mundial, várias 
nações construíram “máquinas codificadoras” mecânicas, que permitiam codificação e 
decodificação fácil de textos através do uso de cifras sofisticadas e complexas. Neste 
ponto, a história da criptografia muda, ligeiramente, para a história da quebra de códigos. 

Antes de dispositivos passarem a ser usados para codificar e decodificar 
mensagens, as cifras complexas não eram usadas com freqüência, devido ao esforço que 
exigiam tanto para codificação quanto para decodificação. Daí, a maioria dos códigos 
podia ser quebrada em um período de tempo relativamente pequeno. Entretanto, a arte de 
decifração de códigos tomou-se muito mais difícil depois que as máquinas de código 
começaram a ser usadas. Embora os computadores modernos sejam capazes de decifrar 
aqueles códigos rapidamente, isto não diminui o talento de Herbert Yardley, ainda consi¬ 
derado o maior mestre decifrador de códigos de todos os tempos. Ele não só decifrou o 
código diplomático americano em 1915, nas suas horas de folga, como decifrou também o 
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código diplomático japonês em 1922 - mesmo sem saber japonês! Ele conseguiu essa 
façanha usando tabelas de frequência da língua japonesa. 

Na II Guerra Mundial, o melhor método para decifrar códigos era roubar a 
máquina codificadora do inimigo, evitando com isso o tedioso (mesmo que intelectual¬ 
mente gratificante) processo de decifração de códigos. De fato, a posse, pelos aliados, de 
uma máquina codificadora contribuiu grandemente para o término da guerra. 

Com o advento dos computadores - especialmente computadores multiusuários —, 
a necessidade de códigos seguros e indecifráveis tomou-se ainda mais importante. Não 
apenas os arquivos de computadores precisam permanecer secretos, como o próprio acesso 
ao computador tem de ser gerenciado e regulado. Numerosos métodos de criptografar 
arquivos de dados foram desenvolvidos, e o algoritmo DES (Data Encryption Standard), 
aceito pelo National Bureau ofStandards é, em geral, tido como seguro contra esforços de 
decifração de código. Entretanto, o DES é de aplicação muito difícil e pode não ser 
adequado a todas as situações. 


TIPOS DE CIFRAS 


Dos métodos de codificação mais tradicionais, há dois tipos básicos: 
substituição e transposição . Uma cifra de substituição troca um caractere por outro, mas 
mantém a mensagem na ordem adequada. Uma cifra de transposição mistura os caracteres 
de uma mensagem, de acordo com alguma regra. Esses métodos podem ser usados em 
qualquer nível de complexidade desejada, e podem até mesmo ser usados em conjunto. O 
computador digital adiciona uma terceira técnica de criptografia, chamada de manipulação 
de bit y que através de um algoritmo altera a representação computadorizada dos dados. 

Todos os três métodos podem utilizar uma chave. Uma chave é uma seqüência 
de caracteres ( string ) necessária para decodificar uma mensagem. Não confunda a chave 
com o método, pois para decodificar a mensagem não basta conhecer a chave - o 
algoritmo de ciframento também tem de ser conhecido. A chave “personaliza” uma 
mensagem codificada, de modo que apenas aquelas pessoas que conhecem a chave podem 
decodificá-la, mesmo que o método usado para a codificação esteja acessível. 

Dois termos que devem se tomar'familiares para você são original e cifra . O 
original de uma mensagem é o texto que você pode ler; a cifra é a versão codificada. 
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Este capítulo apresenta métodos computadorizados que usam cada um dos três 
métodos básicos na codificação de arquivos-textos, Você verá diversos programas gerais 
que codificam e decodificam arquivos-textos. Com uma exceção, esses programas possuem 
uma função Cifra e outra Decifra. A função Decifra sempre reverte o processo Cifra 
usado para criar o texto cifrado. Por simplicidade, todas as letras em uma mensagem, 
mostradas em exemplos deste capítulo, são codificadas e decodificadas em letra maiuscula. 


CIFRAS DE SUBSTITUIÇÃO 

Uma das mais simples cifras de substituição desloca o alfabeto em uma determinada 
medida. Por exemplo, se cada letra fosse deslocada três posições, então 

abcdefghijklmnopqrstuvwxyz 


se tornaria 


defghijklmnopqrstuvwxyzabc 

Note que as letras a, b e c foram tiradas da frente e colocadas no fim. Para codificar uma 
mensagem utilizando este método, simplesmente substitua o alfabeto mudado pelo 
verdadeiro. Por exemplo, a mensagem 

encontre me ao por do sol 


fica 


hqfrqxuh ph dr sm gr vro 


O programa mostrado aqui permite que você codifique qualquer mensagem de 
texto, usando qualquer equivalência que você escolher. 

program subsl; <A simple substi tution cipner > 
type 

st r 30 = s t ri ng C803 ; 


v a r 


in^outfsstrSO; 
start:integer; 
ch:char; 
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procedure Code(inf,outf:str80;start:integer); 
var 

infile,outfi le : fi le of char; 

ch:char ; 

tiinteger;' 

begi n 

AssignCinfile, inf); 

Reset(infile); 

AssignCoutfile,out f ) ; 

RewriteCoutfil e) ; 

while not EOFCinfile) do 
begin 

read(inf ile,ch); 
ch : = UpCasc C ch); 

if (ch>='A*) and Cch<='I l ) then 
begi n 

t:=Ord(ch)+start; 

if t>0rd(*2*) then t:=t-26; -Cwrap around) 
ch:=Chr (t) ; 
end ; 

WriteCoütfile,ch ) ; 
end; 

WriteLn( 1 fi le coded ' ) ; 

CloseCinfiLe); CLoseCoutfiLe); 
end; CCode> 

procedure Oecode(inf / outf:str80;start:integer); 
var 

infile,outfile:file of char; 
ch:cha r ; 
t:integer; 
begi n 

AssignCinfile, inf); 

ResetCinfi le); 

AssignCoutfi le,outf); 

ReUriteCoutfi le) ; 

while not EOFCinfile) do 
beg i n 

readCinfi le,ch); 
ch:=UpCaseCch ) ; 

if Cch>='A*) and Cch<= , Z') then 
begi n 

t:=Ord(ch)-start; 

if t<OrdC'A') then t:=t+26; íwrap around) 
ch: = Chr Ct) ; 
end; 

WriteCoütfile,c h) ; 
end; 

WriteLn(*fi le decoded 1 ); 

CloseCinfile); CLoseCoutfile); 
end; <Decode> 

begi n 

WriteCenter input file: *); 

ReadLn(inf); 
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Write(*enter output file: '); 

ReadLn(out f) ; 

WriteCstarting position (1-26): 1 ) ; 

ReadLn(start) ; 

Write('Code or Decode (C or D): '); 

ReadLn(c h); 

if UpCase(ch)=•C 1 then Code(inf,outf , start) 

else if UpCa se(ch) = 1 D * then DecodeCinf,out f/Start) 


Embora uma cifra de substituição geralmente engane colegiais, não é adequada 
para a maioria das aplicações, pois pode ser facilmente quebrada. Além disso há apenas 26 
substituições possíveis, e é fácil tentar todas em um curto período de tempo. Um 
melhoramento na cifra de substituição é utilizar um alfabeto aleatório em vez de uma 
substituição simples* 

Um deslize da cifra de substituição simples é que ela mantém os espaços entre as 
palavras, o que a toma mais fácil de ser decifrada por quebradores de códigos. Um outro 
aperfeiçoamento seria codificar espaços. (Na verdade, toda a pontuação deveria ser 
codificada, mas para simplificar os exemplos não farão isso.) Por exemplo, você poderia 
mapear esta sequência de caracteres randômica, contendo todas as letras do alfabeto e um 
espaço 


abcdefghijkimnopqrstuvwxyz <espaço> 


nesta outra seqüência de caracteres: 


qazwsxedcrfvtgbyhnujm ikolp 

Você pode se perguntar se o uso de um alfabeto aleatório traz alguma vantagem 
substancial na segurança de uma mensagem codificada, comparado a uma versão de 
substituição simples. A resposta é sim, pois há 26 fatorial (26!) maneiras de se arranjar um 
alfabeto, com o espaço, este número se toma 27 fatorial (27!). O fatorial de um numero é 
aquele número vezes todos os números inteiros menores que ele, até 1. Por exemplo, 6! 
é 6*5*4*3*2*1, que é igual a 720. Portanto, 26! é um número muito grande. 

O programa mostrado aqui é uma cifra de substituição melhorada, que utiliza o 
alfabeto aleatório mostrado acima. Se você codificar a mensagem 


meet me aí sunset 


usando o programa de cifra de substituição melhorada, ele ficará assim: 
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tssjptspqj pumgusj 


que definitivamente é um codigo mais difícil de ser decifrado. 

prograi subs2; Cui cifrador de substituição welhorado) 
type 

str80 = stringCBOD; 


var 

arq_ent,arq_sai: strBO; 
alfabeto / al£a_sub:strBO; 
inicio: integer; 
cars char? 

function Rcha<al£abeto: str80; car: char): integerj 
(esta funcao retorna u» índice para o alfabeto} 
var 

ts integer; 
begin 

Rcha:=-l; £codigo de erro} 

for t:=l to 27 do i£ car=al£abeto£t3 then flcha:=t; 
snd; £Rcha } 

£unction LetraCcar: char): boolean; 

£ retorna TRUE se car £or u«a letra} 
begin 

Letras= <UpCase<car ) >= ' R' ) and C UpCase(car ) <= 'Z' )j 
end; £ Letra} 

procedure Ci£ra<arq_ent/arq_sai: strBO); 
var 

entrada^saída: file o£ charj 
car: char; 

begin 

Rssign<entrada/arq_ent); 

ResetCentrada ); 

Rssign< saída/arq_sai ); 

Rewrite<saída ); 

while not EOF( entrada) do 
begin 

read(entrada/car ); 
car:=UpCase< car ); 
i£ Letra<car ) or <car=' ' ) then 
begin 

car:=al£a_sub£Rcha<alfabeto,car)}; Cacha substituição} 

end; 

Urite(saida/car ); 
end; 

Writ«Ln< 'Rrquivo cifrado.' )? 

Close<entrada ); Close<saida ); 
end; CCifra} 
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procedure Oeci£ra<arq_ent,arq_sai: str80)j 
va r 

«ntrada, saida; file of char) 
cãr: char? 

b«rgin 

Rssign< entrada,arq_Bnt); 

Reset< entrada ); 

Rssignísaida,arq_sai )j 
ReMrit,e< saida ); 

while not EOF( entrada) do 
begin 

reacK entrada,car )J 

car:=UpCase<car )j 

if Letra(car ) or <car=' ' ) then 

begin 

car : =al£ abetof Rcha< alf a_sub, car > ],' Ctroca pelo alfabeto real) 
end; 

Write<.saida,car )j 
endj 

Writetn< 'Rrquivo decifrado,'); 

Close<entrada); Close<saida); 

«ndj (Decifra) 

begin 

alfabeto: = # RBCDEFSHIJKLMN0PQRSTUUWXY2 ' } 

alfa_subs*'QWERTYU IGPR5DFGHJKL2XCVBNH ' ; (alfabeto de substituição) 
Writ«< 'Digite o nove do arquivo de ent-rada: ' ); 

ReadLn< ar«r_ent)j 

Writ#<'Digite o noas do arquivo de saida: ' )j 
ReadLn< arq_sai )J 

Write< 'Cifra or Decifra <C or D): ' )j 
ReadLn< car ); 

if UpCase< car )= ' C ' then Cif ra< ^r4_ent , *rq_sai )' 
else if UpCase<car )='D' then Decifraiarq_ent,arq_sai )? 
end. 


Embora a decifração de código seja examinada mais tarde neste capitulo, você 
deve saber que mesmo esse código de substituição ainda pode ser facilmente decifrado 
através do uso de tabela de frequência da língua inglesa, na qual a informação estatística 
do uso de cada letra está registrada. (Esse tipo de substituição é usado nos “criptogramas” 
próximos às palavras cruzadas, fornecidos por muitos jornais.) Como você pode facilmente 
ver, quando olha a mensagem codificada, “s” quase certamente tem de ser “e’\ a letra 
mais comum da língua inglesa, e “p” deve ser o espaço. O restante da mensagem pode ser 
decodificado com mais algum tempo e esforço. 

Quanto maior for urna mensagem codificada, tanto mais fácil será decifrá-la 
com uma tabela de freqüência. Para impedir o sucesso de um decifrador que está 
frequentemente aplicando tabelas a uma mensagem codificada, você pode usar uma cifra 
de substituição múltipla. A mesma letra na mensagem original não corresponderá 
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necessariamente à mesma letra na forma codificada. Uma cifra de substituição múltipla é 
conseguida adicionando-se um segundo alfabeto embaralhado e trocando-se um alfabeto 
pelo outro cada vez que uma letra se repete. Para a segunda seqüéncia de caracteres, use 

poi uylrewqasdfghjktoobvcxz 

O programa mostrado aqui trocará de alfabeto depois que uma letra for repetida duas 
vezes. Se você o usar para codificar a mensagem 

meet me at sunset 


essa forma codificada será: 


tsslzsspplpumguuj 

Para ver como isso funciona, coloque o alfabeto ordenado e os dois alfabetos 
aleatórios (chamados sub e sub 2) um sobre o outro, como mostrado aqui. 

alfabeto: abcdefghij klmnopqrstuvwxyz < espaço > 
sub: qazwsxedcrfvtgbyhnujm ikolp 

sub 2: poi uytrewqasdfghjklmnbvcxz 

Quando o programa começar, o primeiro alfabeto aleatório será usado. A primeira letra na 
mensagem será “m”, que corresponde a “t” em sub e a variável “m” na matriz conta será 
aumentada para 1. A próxima letra será “e”, que se tornará “s”; e a variável “e” na 
matriz conta será aumentada para 1. Então o segundo “e” de “meet” será encontrado; 
desta vez sub ainda será usado para traduzi-lo, então ele também se tomará “s” e a variá¬ 
vel será aumentada para 2. Isso fará com que o programa mude para o alfabeto sub 2 e 
zere a variável “e” na matriz conta. Então o “t” de “meet” tomar-se-á “1” e o espaço se 
tomará “z”. Então será encontrado o “m” de “me”. Depois de ele ser traduzido para “s”, 
voltará o alfabeto sub, pois foi encontrada uma letra repetida. Esse sistema de troca de 
alfabetos continuará até o fim da mensagem. 

Aqui está um programa que criará uma cifra de substituição múltipla: 



Criptografia e compressão de dados 175 


prosrai subs3í (cifrador de substituição múltipla) 
type 

strBO = stringE80 3; 


v a r 

àpq_ent,arq_5ai: strBO; 

alf abeto.alfa_sub,alfa_sub2: strBO; 

inicio j t! integer; 

car: char; 

conta: arrayCi, .27 ] Df íntegerl 

function Rchai alfabeto: strBO; car: char): integer; 
vesta funcao retorna um índice para □ alfabeto) 
var 

t: íntegerl 
beg in 

RcKa:=~l; (codigo de erro) 

for t:=l to 27 do if car = al£abetoCt ) then Rcha:=t; 
end: {Rcha ) 

function Letraí car: char): boolean: 

{ retorna TRUE se car foi- uma letra) 
begin 

Letra:= (UpCasef car ) >= 'R' ) and ( UpCaseí car ) <= 'Z 

end; ( Letra 3 

function Indicei caricKar ): ínteger l 
begin 

if Letra( car ) then Indice:=Qrd( UpCaseí car ) )-Ord( 'R' 
else Indice:=27; (então e' o espaço do fim) 
end: [ Irdice } 

procedure Cifrai arq_ent.arq_sai: strBO); 
var 

entrada^ saída: file of char; 
car: char; 
trocou: boolean; 

begin 

Rssigní entrada,arq_ent ); 

Reset< entrada ); 

RssignC saída.arq_5ai >♦ 

Rewrite( saída ); 

trocou:=TRUE; 

while not ED"(entrada ) do 

begi n 

read(entrada,car>; 
car ; =üpCase( car ); 

if LetraC car ) or ( car=' ' ) then 

beg i n 

if trocou then 
begin 

car:=alfa_5ub[Rcha(alfabeto.car)3; C acha 
contaC Indicei car ) ):=cDnta[ Indicev car ) 3+1; 

end 


' >; 


>+i 


substituição ) 
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else 
begi n 

car:= al£a_sub2CRchai alfabeto,car ) 3; (segunda substituição! 
contaCIndice( car ) 3:=contaCIndicei car)3+1; 

end 
end; 

Writei saida,car ); 

i£ contaCIndice(car ) 3=2 then 

begin 

trocou:=not trocou; 

for t:=l to 27 do contaCt3:=0; (zera «atriz de contagem 3 
end; 
end; 

UriteLni Arquivo cifrado.' ); 

Close( entrada ); Close( sa ida ); 
end; (Cifra) 

procedure Decifrai arq_ent,arq_sai j str80 ); 
v ar 

entrada , saida: file of char; 
car: char; 
trocou: boolean; 
beg i n 

fiss i gn<entrada ; arq_ent); 

ResetC entrada ); 

flssign(saida.,arq_sai ); 

ReWrite< saida ); 

trocou:= TRUE j 

while not EOF( entrada ) do 

begin 

readientradaíCar 

car:=UpCase(car ); 

if Letraicar ) or ( car=' ' ) then 

begi n 

if trocou then 
begin 

car:=al£abetoCRchaialfa_sub,car ) 3; (acha substituição) 
contaCIndice< car )3:=contaCIndice< car ) 3+1; 

end 

else 

begin 

car:=alfabetoCflcha( alfa_sub2 } car ) 3; (segunda substituição) 
contaC IndiceC car > 3:=contaC Indiceicar ) 3+1; 

end 

end; 

Wr i te< saida^car ); 

if contaC Indicei car ) 3=2 then 

begin 

trocou:=not trocou; 

for t:=l to 27 do contaCt3:=0; (zera matriz de contagem) 
end; 
endj 

WriteLni 'flrquivo decifrado.' ); 

Closeientrada); Close<saida 
end; (Decifra) 
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beg i n 

alfabeto : = 'R8C0EFGHIJKLMNOPQRSTUUWXYZ ' } 

alfa_sub : = 'QWERTYU IOPRSDFGHJKLZXCUBNW {alfabeto de substituição 13 
alfa_sub2: = ' MN8OCXZRSDFGHJKLP0IUYTREWQ' ; (alfabeto de substituição 2 3 
for t:-l to 27 do cortaCt]:=0; (inicializa «atriz de contagew3 
Write< 'Digite o nome do arquivo de entrada: ' )} 

ReadLn( arq_ent); 

Write('Digite o nowe do arquivo de saida: ' 

ReadLn(arq_sai ); 

Write( 'Cifrar ou Decifrar (C ou D): ' ); 

ReadLn< car ); 

if UpCase<car)='C' then Cif ra(arq_ent,arq_sai) 

e lse if UpCase( car)='0' then Decifra( arq ent,arq sa i )J 


O uso de cifras de substituição múltipla toma a quebra de um código muito mais 
difícil pelo uso de tabelas de freqüência, pois em tempos diferentes letras diferentes 
correspondem à mesma coisa. Se você pensar nisso, será possível utilizar vários alfabetos 
aleatórios diferentes e uma rotina de alteração mais complexa para fazer com que todas as 
letras do texto codificado ocorressem com a mesma freqüência. Neste caso, uma tabela de 
freqüência seria inútil para quebrar o código. 


CIFRAS DE TRANSPOSIÇÃO 


Um dos mais antigos usos de códigos de transposição conhecidos foi elaborado 
pelos espartanos por volta de 475 a.C. Ele usava um dispositivo chamado skytale , que 
era basicamente uma faixa através da qual uma mensagem era escrita e era enrolada em um 
cilindro. Teoricamente, é impossível ler a faixa sem o cilindro, pois as letras estão fora de 
ordem. Na prática, entretanto, esse método deixa algo a desejar pois podem ser tentados 
cilindros de diferentes tamanhos até a mensagem começar a fazer sentido. 

Você pode criar uma versão computadorizada de um skytale, colocando a 
mensagem original em uma matriz de um certo modo e escrevendo-a de outro modo. Para 
fazer isso, uma seqüência de caracteres unidimensional é usada para guardar a matriz a ser 
codificada, mas a mensagem está escrita no arquivo em disco como uma matriz 
bidimensional. Para esta versão, o original é uma matriz unidimensional de 100 bytes de 
comprimento, mas esta é escrita em disco como uma matriz bidimensional de 5 x 20. No 
entanto, você pode usar as dimensões que quiser. Devido ao fato de uma matriz de 
tamanho fixo armazenar a mensagem, é provável que nem todos os elementos da matriz 
sejam usados. Isto toma necessário inicializar a matriz antes de introduzir o original. Na 
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prática, é melhor inicializar a matriz utilizando caracteres aleatórios; entretanto, para sim¬ 
plificar, o símbolo # é usado (qualquer outro caractere serviria). 

Se você colocasse a mensagem 

meet me at sunset 


na matriz skytale e a visse como uma matriz bidimensional, ela ficaria assim: 


m 

e 

e 

t : 

m 

e 


a t 


s 

u 

n J s 

i 

e 

t 

tf 

* j * 

tt 

# 

tf 

.. | 

P | rr 

\ 


Dai, se você escrevesse a matriz por colunas, a mensagem ficaria assim: 


mm e...eest...e u...tan... ts 


onde os pontos indicam o número certo de sinais #. Para decodificar a mensagem, as 
colunas sáo introduzidas no skytale. Então, a matriz skytale pode ser exibida em ordem 
normal. O programa skytale utiliza esse método para codificar e decodificar mensagens. 

progra» sKytale; (Cifrador SKytale) 

(Codifica mensagens de ate 100 caracteres} 
type 

str100 = string[1003; 
strSO = stringCBOly 


var 

artr_ent, arq_5âi : strBOj 
sKytale: strlOO; 
t: integerj 
car: charj 

function Letraícar: char): booleanj 
(retorna TRUE se car for uma letra) 
begin 

Letra:= (UpCase( car ) >= 'R') and (UpCase( car ) <= 'Z'); 

end; CLetra} 
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procedure CifraCarq_ent, arq_sai: str80 >; 

Cie um arquivo de texto e d transfona eu uma matriz bidiwens iünal 3 
var 

entrada,saida: file of char; 
car: char; 
t,t2: integer; 

beg i n 

Rs sign( entrada?arq_ent) j 
Reset( entrada >? 

RssignC saida,arq_sai); 

Rewrite( saida ); 

t :=1 ; 

while not EOF(entrada) do 
begi n 

read< entrada,sKytaleC t] ); 
t:=t+l; 
end; 

C cria a matriz bidimensional de 5 X 20} 
for t:=l to 5 do 

for t2:=0 to 19 do 

Write< saida,sKytaleC t + (t2I5 ) 3 ); 

WriteLn( 'Rrquivo cifrado' ); 

Close( entrada); Close<saida >; 
end; (Cifra) 

procedure Deci f ra( arq_ent > ar q_sai : strBO*; 
var 

entrada? saida: file of char.; 
car: char; 
t , t2;integer; 

beg i n 

RssignC entrada.arq_ent >1 
Reset< entrada ); 

Rssign( saida?arq_sai ); 

ReWrite<saida); 

for t;=l to 5 do 

for t2 : =0 to 19 do 

Read( entrada ? sK ytalet t+( t2*5 ) 3 )) 

(escreve normalmente 3 

for t:=1 to 100 do Write<saida , sKytaleCt1 #í 

WriteLnC 'Rrquivo decifrado' )? 

Closeí entrada ); Closeí saida )? 
end; (Decifrai 

beg i n 

for t:=l to 100 do sKytaleCt3:=#j 
Writeí 'Nome do arquivo de entrada: ' ); 

ReadLn(arq_ent); 

Write( 'Nome do arquivo de saida: ' 1; 

ReadLnC arq_sai ): 
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Writeí 'Cifra ou Decifra (C ou D): ' ); 

ReadLnícar ); 

if UpCaseícar )='C' then C i fra( arq_eni , arq_sa i ) 

else if UpCase( car )='0' then Decifrai arq_ent^arq_sai ); 


Há outros métodos para se obter mensagens transpostas. Um método especial¬ 
mente conveniente para computadores utiliza letras trocadas dentro da mensagem definida 
por algum algoritmo. Por exemplo, um programa que transpõe letras é transcrito a seguir. 

prograi transpõe; ( U« cifrador de tranposicao } 

(Codifica mensagens de ate 100 caracteres] 
type 

strlOO = stringClOOD; 
str80 = string[803; 


var 

arq_ent,arq_sai: str80; 
mensagem: strlOO; 
t: integer; 
car: char; 

procedure Cifra<arq_ent , arq_5 ai: strSO ); 
var 

entrada f sai da: file of char; 
temp: char; 
tjt2: integer; 


begin 

Rssigní entrada^arq_ent ); 

Reset( entrada); 

Rssignísaida,arq_sai ); 

Rewr i te( s a i da ); 

t: = 1; 

while not EDF(entrada) and (t <= 100) do 
begin 

readí entrada,mensagemC t] ); 
t:=t+l; 
end; 

mensagemCt-13:='#'; (remove EOF) 

(transpõe os caracteres] 
for t2:=0 to 4 do 

for t:=l to 10 do 
begin 

temp:=wensagem(t+t2*203; 

mensagemCt+t2S20 ] :=mensagemC t+10+t 2120 3; 
mensagemC t + 10 + t2*20 3:.= temp; 
end; 

(escreve } 

for t:=l to 100 do Write(saida,mensagemCt3 ); 
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WriteLn< 'Rrquivo cifrado' ); 

Closeíentrada); Close(saida ); 
end; CCifra] 

procedure Decif ra< arq^ent/arq_sai : strSO); 
var 

entrada,saida: file of char; 
te»p: char; 
t,t2:integer; 

begin 

Rssign<entrada, arq^ent )J 
Reset(entrada); 

Rssign<saida, arq_sai ); 

ReWrite( saida); 

t: =1; 

while ( not EOF< entrada ) ) and (t <= 100) do 
begin 

read( entrada,uensageiiC t 3 ); 
t:=t+l; 
end; 

nensage^Ct-l]: = '#'J íremove EOF 3 

(transpõe os caracteres) 
for t2:=0 to 4 do 

for t:=i to 10 do 
begin 

tenp : =*ensagei»C t+t2*20 3; 

wensagewC t+t2*20 3 : =»ensage»C t + 10+t2*20 3; 
wensagewC t + 10 + t2X203: = tewp; 
end; 

Cescreve 3 

for t:=l to 100 do Writeí saida,«ensagewít3 ); 

WriteLn< 'Rrquivo decifrado' ); 

Closeíentrada ); Ciose< saida ),* 
end; (Decifra } 

begin 

for t:=l to 100 do . «ens ageiC 13: =#; 

Write( 'No»e do arquivo de entrada: ' ); 

ReadLní ara_ent ),’ 

Write< 'No»e do arquivo de saida; ' ); 

ReadLní arq_sai )j 

Uriteí 'Cifra ou Decifra (C ou D ) : ' >; 

ReadLn( car ); 

if UpCase<car )='C' then Cifra( arq_ent, arq_sai s 
else if UpCase<car )='D' then Decifrai arq_ent,ara_sa] 
end. 

Embora códigos de transposição possam ser eficientes, os algoritmos tornar-se-ão muito 
complexos se um alto grau de segurança for necessário. 
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CIFRAS MANIPULADORAS DE BIT 

O computador digital deu origem a um novo método de codificação através da 
manipulação dos bits que compõem os caracteres reais do original. Embora um verdadeiro 
purista pudesse afirmar que a manipulação de bit (ou alteração, como às vezes é chamada) 
na verdade é apenas uma variação da cifra de substituição, os conceitos, métodos e opções 
diferem tão significativamente que ela tem de ser considerada um legítimo método de 
ciffagem. 


Cifras de manipulação de bit são bem convenientes para computadores pois eles 
empregam operações facilmente executáveis pelo sistema. Além disso, o texto cifrado 
tende a parecer completamente ininteligível, o que aumenta a segurança, fazendo o arqui¬ 
vo parecer inútil ou danificado, e confundindo qualquer um que tente ganhar acesso à 
mensagem. 

Geralmente as cifras de manipulação de bits só são aplicáveis a arquivos 
baseados em computador e não podem ser usados para produzir mensagens impressas, pois 
a manipulação de bits tende a produzir caracteres não imprimíveis. Por essa razão, você 
deve pressupor que o arquivo deverá permanecer num arquivo de computador. 

Cifras de manipulação de bit convertem o original em cifra, através da alteração 
do padrão real de bits de cada caractere, usando um ou mais dos seguintes operadores 
lógicos: 


AND 

OR 

NOT 

XOR 

O Turbo Pascal é uma das melhores linguagens para criar cifras de manipulação de bit, 
pois admite esses operadores para uso com dados do tipo byte. Quando esses operadores 
são aplicados a variáveis byte, as operações ocorrem bit-a-bit, tomando mais fácil a 
alteração do estado dos bits dentro de um byte. 

A cifra de manipulação mais simples e menos segura usa apenas o operador 
NOT, o operador do complemento. (Lembre-se de que o operador NOT provoca a 
inversão de cada bit dentro de um byte: um 1 toma-se 0 e 0 toma-se 1.) Portanto, um byte 
complementado duas vezes é igual ao original. O seguinte programa, chamado 
Complemento, codifica qualquer arquivo-texto pela inversão de bits dentro de cada 
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caractere. Devido à forte checagem de tipo do Turbo Pascal, o programa deve usar 
variáveis byte em vez de variáveis char, para que os operadores de manipulação de bit 
possam ser usados. 


program complemento; tCifrador de com p 1 eroen taca o ?« 
type 

strBO = str 1 ng[ BO 3 j 


var 

arq_ent,arq_5ai: strBO; 
t: integer; 
car: char; 

procedure Cif ra(arq_ent.arq^sai: strBO); 
var 

entrada,saída: file of byte; 
car:byte; 

beg i n 

Rssigní entrada, arq_ent ); 

Reset(entrada); 
fl5sign(saida,arq^sai >; 

Rewrite( saida ); 

while not EOF( entrada ) dc 
begi n 

read( entrada, car v| 
car;=not car; 

Write( sa i da,ca r ): 
end; 

WriteLní 'Rrquivo cifrado' ), 

Close(entrada ); Closeí saida ); 
end; C C i f r a 3 

procedure Deci f ra( arq_entar Q_sa i : str80 )J 
var 

entrada,saída: file of byte; 
car: byte; 

beg i n 

Rssigníentrada,arq_ent ); 

Resetí entrada); 

Rssign(saida,arq_sai); 

ReWrite( saida ); 

while not EOFíentrada) do 
beg i n 

read( entrada, car 
car:=not car; 

Writeí. sai da, car ): 
end; 

UlríteLní 'Rrqu. ivo decifrado' ); 

Closeí entrada ): Closeí i da >» 
end ,* i Dec i f r a 3 
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begin 

Wnte( 'Nome do arquivo de entrada: ' 

ReadLn(arq_ent ); 

Wn te< 'Noroe do arquivo de saída: ' 

ReadLn<arq_saí ); 

Wr1te< 'Cif ra ou Decifra ( C ou D >: ’ >) 

ReadLní car ); 

if UpCase<car)='C' then Cifra( arq_ent.arq_sai ) 
else if UpCaseí car )= ' D' then Decifrai arq_ent,arq_sai 
end . 


É difícil mostrar qual seria a aparência do texto cifrado, pois a manipulação de 
tipo usada aqui geralmente cria caracteres não imprimíveis. Tente-o no seu computador e 
examine o arquivo - ele parecerá bastante críptico. 

Há dois problemas com esse esquema de codificação simples. Primeiro, o 
programa de criptização não utiliza uma chave para codificar, então, qualquer um com 
acesso ao programa pode decodificar e codificar arquivos. Segundo, e talvez mais 
importante, esse método seria facilmente percebido por um experiente programador de 
computadores. 

Um método melhorado de manipulação de bit utiliza o operador XOR. 

O operador XOR tem a seguinte tabela-verdade: 


XOR 

0 

1 

0 

0 

1 

1 

0 

0 


O produto da operação XOR é TRUE se e apenas se um operando for TRUE e o outro 
FALSE. Isso dá ao XOR uma propriedade única: se você usar XOR em um byte com um 
outro byte chamado chave, e então tomar o resultado da operação e usar XOR 
novamente com a chave, o resultado será o byte original, como está mostrado aqui: 

1101 1001 

XOR 0 10 1 0 0 11 (chave) 

1000 1010 

1000 1010 
XOR 0101 0011 
1101 1001 


(chave) 
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Quando usado para a codificação de um arquivo, esse processo resolve os dois 
problemas inerentes ao método do complemento. Antes de mais nada, devido ao fato de 
ele utilizar uma chave, o programa de criptização, sozinho, não pode decodificar um 
arquivo; segundo, como o uso da chave faz cada arquivo único, o que foi feito com o 
arquivo não é óbvio para alguém com conhecimentos de ciência da computação. 

A chave não precisa ter apenas um byte de comprimento. Por exemplo, você 
poderia usar uma chave de diversos caracteres e alternar os caracteres através do arquivo. 
Entretanto, aqui é usada uma chave de apenas um caractere, para manter o programa 
simples: 

progra» Xor_Co»_Chave; { xor com uwa chave, para aumentar a segurança} 

type 

str80 = stringCaOD; 


var 

arq_8nt,arq_sai: strBO; 
t: integer; 
car; char; 
chave: byte) 

procedure Ci£ra(arq_ent,arq_sai: strBOj chave:byte )) 
var 

entrada,saida: file of byte; 
car: byte; 

begin 

Rssign< entrada,arq_ent ); 

Reset(entrada)j 
R5sign< saida,arq_sai ); 

Rewrite< saida ),' 

uhile not EOF(entrada ) do 
begin 

read(entrada,car)j 
car:=chave xor car; 

Write< saida,car); 
end; 

WriteLn< 'Rrouivo cifrado' ),* 

Cios e< entrada); Clcse( saida); 
end; (Cifra} 

procedure Dec i f r a< arq_ ent, ar^sa i : str80; chave: byte), 
var 

entrada,saida: file o£ byte; 
car: byte; 

begin 

Rs s i gn( entr ada , arq_ent ); 

Reset( entrada ); 

Rssign<saida,arq_sai ); 

ReWrite< saida); 
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while not EOF( entrada) do 
begin 

readC entrada#car ); 
car:=chave xor carj 
WriteC saida,car ); 
end; 

WriteLnC 'Rrquivo decifrado'); 

Close(entrada); CloseC saida ) j 
end; (Decifra} 

begin 

WriteC 'No*e do arquivo de entrada: '); 

ReadLnC arq_ent ); 

WriteC 'No»e do arquivo de saida: ' ); 

ReadLnCarq^sai); 

WriteC 'ChaveC u* caractere ): 7 ); 

ReadLnC car ); 
chave:=OrdC car )j 

WriteC 'Cifra ou Decifra CC ou D): ' ): 

ReadLnC car ); 

if UpCaseCcar )= J C' then Cifra( arq_ent,arc_sai«chave ) 

else if UpCaseCcar )='D' then DecifraCaro_ent.arc_sai , chave); 


COMPRESSÃO DE DADOS 


Técnicas de compressão de dados, essenciaimente, espremem uma determinada quantidade 
de informação em uma área menor. Elas são usadas em sistemas computacionais para 
aumentar a capacidade de armazenamento do sistema (por redução das necessidades de 
armazenamento do usuário do computador), para reduzir o tempo de transferência 
(especialmente através de linhas telefônicas), e estabelecer um nível de segurança. Embora 
haja muitos esquemas de compressão de dados disponíveis, nós examinaremos apenas dois 
deles. O primeiro é por compressão de bits, onde mais de um caractere é armazenado em 
um mesmo byte, e o segundo é por deleção de caracteres , no qual caracteres de 
um arquivo são apagados. 


DE OITO PARA SETE 

A maioria dos computadores utiliza tamanhos de bytes que são potências de 2 por causa da 
representação binária de dados na máquina. As letras maiusculas e minúsculas e a 
pontuação requerem apenas cerca de 63 códigos diferentes, precisando de apenas 6 bits 
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para representar um byte. (Um byte de 6 bits poderia ter valores de 0 a 63.) Entretanto, a 
maioria dos computadores utiliza um byte de oito bits; portanto, em qualquer arquivo de 
texto, 25% do armazenamento do byte é desperdiçado. Você poderia, portanto, compactar 
4 caracteres em três bytes se pudesse usar os dois últimos bits de cada byte. O único 
problema é que existem mais de 63 códigos ASCII, organizados de modo que as letras 
maiusculas e minúsculas caem mais ou menos no meio da escala. Isso quer dizer que 
alguns caracteres necessários requerem pelo menos 7 bits. É possível usar uma 
representação não-ASCII (o que é feito em raras ocasiões), mas não é geralmente 
recomendável. Uma opção mais fácil é compactar 8 caracteres em 7 bytes, explorando o 
fato de que nenhuma letra ou marca de pontuação normal utiliza o oitavo bit de um byte. 
Portanto, você pode usar o oitavo bit de cada um dos sete bytes para armazenar o oitavo 
caractere. Esse método economiza 12,5%. 

Entretanto, muitos computadores, incluindo o IBM PC, de fato utilizam 
caracteres de oito bits para representar alguns caracteres especiais ou gráficos. Além disso, 
alguns processadores de texto também usam o oitavo bit para indicar instruções de 
processamento de texto. Portanto, usar esse tipo de compactação de dados só funciona em 
arquivos ASCII “estritos”, que não usam o oitavo bit. 

Para visualizar como isso funciona, considere os 8 caracteres seguintes 
representados como bytes de oito bits: 

byte 1 0 111 0 10 1 

byte 2 0 111 110 1 

byte 3 0 0 1 0 0 0 1 1 
byte 4 0 10 1 0 110 
byte 5 0001 0000 
byte 6 0 110 110 1 

byte 7 0 0 1 0 1 0 1 0 
byte 8 0 1 1 1 1 0 0 1 

Como você pode ver, o oitavo bit é sempre 0. Esse é sempre o caso, a menos que o oitavo 
bit seja usado para checagem de paridade. A maneira mais fácil de comprimir 8 caracteres 
em 7 é distribuir os 7 bits significativos do byte 1 nas 7 posições não usadas de oitavo bit 
das posições de 2 a 8. Os 7 bytes remanescentes então aparecem assim: 
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é _byte 1 - na vertical 

byte 2 1111 1101 
byte 3 1 0 10 0 0 1 1 
byte 4 1101 0011 
byte 5 00 0 1 0 0 00 
byte 6 1110 110 1 
byte7 00 10 1 0 10 
byte 8 1111 100 1 

Para reconstruir o byte 1, você precisa apenas juntá-lo de novo, tomando o oitavo bit de 
cada um dos outros sete bits. 

Esta técnica de compressão comprime qualquer texto de 1/8, ou 12,5%. Essa 
economia é bastante substancial. Por exemplo, se você estivesse transmitindo o 
código-fonte de seu programa favorito para um amigo, por uma linha telefônica de longa 
distância, estaria economizando 12,5% das despesas de transmissão. (Lembre-se: o 
código-objeto, ou função executável do programa, precisa dos 8 bits completos.) O 
seguinte programa comprime um arquivo-texto, usando o método descrito: 

progran compressor; (coloca caracteres e» palavras de 7 bits) 
type 

str80 = stringCBOD; 


var 

arq_ent*arq_sa1: strQO; 
t: integerj 
car: charj 

procedure Compri*e<arq_ent,arq_sai :str80 ); 
var 

entrada*saida: file of byte; 
car,car2:bytej 
feito:boolean; 

begi n 

fls5ign< entrada*arq_ent); 

Reset< entrada); 

flssign< sai da *arq_sai ); 

Rewrite(saida); 

feito:=FRLSE; 
repeat 

read( entrada * car.); 
i£ E0F< entrada ) then 
feito:=TRUE 
else 
beg i n 

car:=car shl 1; (retira o bit nac usado) 
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for t:=0 to ó do 
begi n 

if EOFí entrada) then 
begin 

car 2:=0 ) 

£ eito:=TRUE; 

end else read( entrada,car 2 ); 

car2:=car2 and 127; {vira o bit superior] 
car2:=car2 or <(car shl t) and 128); [e*pacota os bits) 
Wnte( saida^carZ ); 
end; 

end; i else } 
until feito; 

WriteLní 'Arquivo cowpmxido' ); 

Close<entrada ); CloseC saida ); 
end; C Coipr i*e ] 


procedure Descompri»e( arq_ent, arq_sai :str80 ); 
var 

entrada,saída: file of byte; 
car,car2:byte; 
s: arrayC1. .7 ] of byte; 
feito:boolean; 

beg i n 

flssign( entrada,ar q_ent ); 

Reset< entrada ); 
flssign(saida,arq_sai); 

Rewrite< sai da ); 

feito:=FflL5E; 
repeat 

cari =0; 

for t:=1 to 7 do 
begi n 

if EDF<entrada) then 
f eito:=TRUE 
else 
beg i n 

read(entrada,car2); 

sCt];=car2 and 127; (vira o bit superior) 
car2:=car2 and 128; íapaga os bits inferiores) 
car2:=car2 shr t; Cdesempacota ) 
car:=car or car2j (reconstrói o oitavo byte) 
end; 
end; 

Write< saida,car); 

for ti=l to 7 do Write< saida, sC t 3 ); 
until feito; 

WriteLn< 'Rrquivo descompri»ido' ); 

Closeíentrada); Close<saida ); 
end; C 0esco»pr i me } 
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besin 

Writ,e( 'Noae do arquivo rié entrada: 7 >í 
ReadLn(arq_ent); 

Write( 'No*e do arquivo de saida: ' ); 

ReadLn( arq_sai ); 

Write( 'Co*pri»e ou Descowpriwe (C ou D): 7 )j 

ReadLnC car } J 

it UpCaseí car >= ' C 7 then Compr i »e( arq_ent, arq_sa i 
else if UpCa 5 e(car )='D 7 then De 5 co*pri»e(arq^ent. arq_sai )! 
end. 

O código deste programa é bastante complexo porque vários bits devem ser mudados. Se 
você se lembrar do que foi feito do primeiro byte de cada oito, o código ficará mais fácil 
de ser seguido. 


A LINGUAGEM DE 16 CARACTERES 

Embora inadequado para a maioria das situações, um método interessante de compressão 
de dados deleta letras desnecessárias de palavras' - em essência mudando muitas palavras 
por abreviações. A compressão de dados é alcançada porque os caracteres não usados não 
são armazenados. Economizar espaço usando abreviações é muito comum - é por isso que 
“Sr.” é usado em vez de “Senhor”. Em vez de usar realmente abreviações, o método 
apresentado nesta seção remove automaticamente certas letras de uma mensagem. Para 
fazer isso é necessário um alfabeto mínimo. Um alfabeto mínimo é aquele no qual diversas 
letras raramente usadas são removidas, deixando apenas aquelas necessárias para formar a 
maioria das palavras ou para evitar ambiguidade. Portanto, qualquer letra que não conste 
do alfabeto mínimo será extraída de qualquer palavra em que ela apareça. Exatamente 
quantos caracteres existem em um alfabeto mínimo é uma questão de escolha. Entretanto, 
neste capítulo utilizamos 14 letras mais comuns, mais espaço e caractere retum. 

Automatizar o processo de abreviação requer que você saiba quais letras do 
alfabeto são usadas mais freqüectemente, de modo que você possa criar um alfabeto 
mínimo. Em teoria, você poderia contar as letras de cada palavra em um dicionário. 
Entretanto, diferentes autores utilizam freqüências de misturas diferentes, portanto uma 
tabela de ffeqüência, baseada apenas nas palavras disponíveis em inglês, pode não refletir 
a verdadeira frequência de uso das letras. (Levaria muito tempo para contar as letras!) 
Corno alternativa, você poderia contar a freqüência de letras neste capítulo e usá-la como 
base de seu alfabeto mínimo. Para fazer isso você poderia usar o seguinte programa 
simples. Esse programa salta toda pontuação, exceto pontos, vírgulas e espaços. 
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pr ogra» Conta; 

£ conta o mísero de ocorrências de cada tipo 
de caractere nu* arquivo} 

type 

str80 = stringCB0 3; 

var 

arq_ent: str80j 
ti integer; 

letras; arrayCO.,253 of integer; 
espacojponto, virgula: integer; 

function Letra(carichar )i boolean; 

CTRUE se car for uma letra do alfabeto) 
begi n 

Letra: =( UpCase< car) >= 'R') and (UpCase(car) <= 'Z' )j 
end; CLetra} 

procedure Contaiarq_ent: strBO); 
var 

entrada: file of char; 
car; char; 

beg in 

Rssignientrada,arq_ent); 

ResetC entrada ); 

while not EOF(entrada) do 
begin 

Readi entrada,car >J 
car:=UpCase(car ); 
if Letraí car ) then 

letr asC Qrd< car )~0rd( ' R' )3:=letras[Drd(car >-Ord( ' R ' ) 3+1 
else case car of 

' espaço:=espaco+l; 

'.': ponto:=ponto+l; 

', virgula :=virgula+i; 
end; 
end; 

Close< entrada ); 
end; C Conta 3 

beg i n 

Writei 'Nome do arquivo de entrada: ' ),' 

ReadLnC arq_ent ); 

for t:=0 to 25 do letrasCt3:=0; 

espaco:=0; virgula:=0; PDnto:=0; 

Contaiarq_ent ); 
for t:=0 to 25 do 

WriteLni Chr( t+0rd( 'R' )), ' : ',letrasC t 3 >; 

WriteLn('espaço: espaço); 

WriteLni'ponto: ponto); 

WriteLn('virgula: virgula); 

end. 
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Para conseguir compressão de dados significativa, você deve cortar o alfabeto 
substancialmente, removendo as letras usadas menos frequentemente. Embora haja muitas 
opiniões sobre o que seja exatamente um alfabeto mínimo, as 14 letras principais e o 
espaço somam em torno de 85% de todos os caracteres neste capítulo. Devido ao caractere 
retum também ser necessário para evitar a quebra de palavras, ele também será incluído. 
Portanto, este capítulo usa um alfabeto mínimo, consistindo em 14 caracteres, no espaço e 
no retomo de carro: 


ABDEHILMNORSTU <espaço> <RC> 

Aqui está um programa que remove todos os caracteres, exceto os 16 
selecionados. O programa realmente começa uma nova linha, se um caractere retum 
estiver presente. Isso toma a saída legível - não é necessário armazenar o caractere 
linefeedy pois ele pode ser reconstruído mais tarde. 

prosra» Co»pressor2; Clinguage* de 16 caracteres) 
type 

strBO = stringCBOD; 


var 

arq_ent,arq_sai: strSOj 
t: integer; 
cars charj 

procedure Co»p2< arq^entjarq_sais strBO)j 
var 

entrada,saida; tile o£ charj 
car; charj 
feito:booleanj 

begin 

fissign< entrada,arq^ent) j 
Reset< entrada)$ 
flssign<saída,arq_sai )J 
Rewrite< saida); 

feito:=FRLSE j 
repeat 

if not EOF< entrada ) then 
begin 

Read< entrada, car ); 
car : =UpCase< car )j 

if Pos<car, ' R8COEJILMN0R5TU ') <> 0 then Write<saida,car); 
if Ord<car )=13 then Write<saida,car); fcr 3 
if Ord< car )=10 then Wr i te< saida,car ); Cif) 

end 

el se f eito:=TRl)E; 
until feito; 
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Writ-eLní "Arquivo co»pri»ido' )j 
Close<entrada); Close( saida )j 
end; C Co»p2} 

begi n 

Write< 'No»e do arquivo de entrada: ' )J 
ReadLn< arq_ent)J 

Writ«< "No»© do arquivo de saida: ' )j 
ReadLn< arq_sai ); 

Coap2< arq_ent,arq_sai ); 
end. 


0 programa utiliza a função Pos, que verifica se cada caractere lido está no 
alfabeto mínimo. Pos retorna 0 se não houver correspondência, ou a posição da primeira 
correspondência encontrada. 

Se você usar esse programa na mensagem. 


Atenção alto comando: 

Ataque bem-sucedido. Por favor mandem suprimentos adicionais e novos sol¬ 
dados. Isso é essencial para manter nossa cabeça-de-ponte. 

General Frashier 

a mensagem comprimida ficaria assim: 

Atenao alto ornando 


ataue bem suedido. Or aor mandem surimentos adiionais e noos soldados. 
Isso é essenial ara manter nossa abea de onte. 

... eneral rashier 


DECIFRAÇÃO DE CÓDIGOS 


Nenhum capítulo de ciffagem de dados é completo sem uma olhada rápida em decifração 
de códigos. A arte de decifração de códigos é essencialmente de tentativa e erro. Com o 
uso de computadores digitais, cifras relativamente simples podem ser facilmente quebradas 
através de teste exaustivo. Entretanto, os códigos mais complexos ou não podem ser 
quebrados ou requerem técnicas e recursos não comumente disponíveis. Por simplicidade, 
esta seção dedica-se a decifrar os códigos mais simples. 
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Se você quiser decifrar uma mensagem que foi cifrada, usando um método de 
substituição simples apenas com o alfabeto trocado, então tudo que tem a fazer é tentar 
todas as 26 substituições possíveis para ver qual serve. Um programa para fazer isso é 
mostrado aqui: 

pr ogra» Decifrador; CPrograwa decodificador de cifradores 

de subst i tu i-cao si»ples. henssagens pode» 
ter ate' 1000 caracteres.} 


type 

strBO = stringCBODj 


var 

arq_ent: strBO; 

mensage»: arrayC 1..1000 D of char; (conte» a »ensage») 
car: char; 

function Letraícar: char )í boolean; 

Creturns TRUE if car is a letter of the alphabet} 
begin 

Letra:= ( UpCaseCcar ) >= 'R') and (UpCase(car> <= 'Z'); 
end; (Letra} 

procedure Decif ra<arq_ent: strBO); 
var 

entrada: file of char; 
car: char; 
feito: boolean; 
sub,t,t2,l: integer; 


begin 

Rssign( entrada , arq_ent )j 
Reset(entrada); 

feito:=FRL5E; 

l:»l; 

repeat 

Read( entrada, aensase»[13); 

»ensage»C13:=UpCase(»ensage»C13); 

1 :* 1+15 

until E0F( entrada )J 

l:=l-l; (apaga o caractere de EOF} 

t:=0; 5ub:=-l; ( nao decifrada) 

repeat 

for t2:=l to 1 do 
begin 

car:=»ensage»C t2 3; 
if Letra<car ) then 
begin 

car : =Chr( 0rd( car >+t ); 

if car > 'Z' then car:=Chr<Ord(car )-26 )} 
end; 

Ur i te< car ); 
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end; 

WriteLnj 

WriteLní 'Decifrada? (5/N): ' ); 

Read( car ); 

WriteLn; 

if UpCaseC car )=' S' then sub:=t; 
t:=t+lí 

until (t=26 ) or (UpCase(car )='5 # )} 

i£ sub < > “1 then Wri te< 'D resultado e' ' ' , sub, ' . ' 

ClDse< entrada ) ; 
end; 1 Decifra 3 

besin 

Write( 'Nome do arquivo de entrada: ' ); 

ReadLnC arq_ent)J 
Decifrai arq_ent); 
end. 


Com apenas uma ligeira variação, você poderia usar o mesmo programa para 
quebrar cifras que utilizam um alfabeto aleatório. Nesse caso, substitua manualmente 
alfabetos introduzidos como mostrado no programa: 

program Decifrador2; {Decodificador de cifradores de substituição 

aleatória. Mensagens podem ter ate' 1000 
caracteres. } 

t y oe 

str80 = str i riq[ 80 D: 


var 

arq_ent: strSO; 

sub: arrayCO.,253 of char: 

mensagem: array[1..10003 of char; {Kolds input mensagem} 
car: char: 

function Letraí car: cKar ): booleanj 
i TRUE se car uma letra do alfabeto} 
begi n 

Letra:= < UpCase( car ) >= 'R' ) and (UpCaseí car ) < = 'Z' ); 

end ? í Letra } 

procedure Decitra2í aro_ent: strBO >; 
var 

entrada: file of char: 
car: charj 
feito: boolean; 
t, 1: i nteger; 


Rs sign(entrada « arq_ent ); 
Reset( entrada ); 


feito:=FRLSE 

i:=i; 

repeat 
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ReacK entrada,wenssgemC13); 
wensagewC13:=UpCase(mensageiC13); 

1 : = 1 + 1 ; 

until EOF( entrada ); 
l:=l-l; (clear EOF char} 

repeat 

Write< 'Digite alfabeto de substituição: ' >} 

ReadLn( sub ); 

for t:=l to 1 do 

beg i n 

car : =nensage?«[ t 3 ; 
i£ Letraí car ) tKen begin 

car:=subCGrcK car >-Ord( ' R " > 3; 
end; 

Write(car ); 
end; 

WriteLn; 

WriteLn< 'Decifrada? (5/N): ' ); 

ReadLní car ); 

if UpCase( car )='S' then feito:=TRUE; 
until feito; 

WriteLn('G alfabeto de substituição e ,# : '.sub); 

Close< entrada ) ;• 
end; {Decif ra2 3 

begin 

Write< 'Nome do arquivo de entrada: ' )j 
ReadLnC arq_ent ); 

Decifra2(arq_ent ); 
end. 


Ao contrário das cifras de substituição, as cifras de transposição e cifras de 
manipulação de bit são mais difíceis de quebrar pelos métodos de tentativa e erro 
mostrados aqui. Se você tiver de decifrar códigos tão complexos, boa sorte! 




Seqüências de números aleatórios (ou randômicos) são usadas em uma série de situações 
de programação, variando de simulações (que são as mais comuns) a jogos e programas 
educacionais. O Turbo Pascal contém uma função interna chamada Random, que gera 
números aleatórios. Como você verá neste capítulo, Random é um excelente gerador de 
números aleatórios, mas talvez em algumas aplicações você precise de dois ou mais 
geradores diferentes que forneçam séries diferentes de números aleatórios para tarefas 
diferentes. Além disso, algumas simulações requerem um gerador de números aleatórios 
assimétrico ou desequilibrado, o qual produza uma sequência que. sofra uma inclinação 
maior para um lado ou para outro. A primeira parte deste capítulo é devotada à construção 
de geradores de numeros aleatórios e ao teste de sua qualidade. 

A segunda parte desse capítulo mostra como você pode utilizar números 
aleatórios em simulações do mundo real. A primeira é a simulação de uma fila de caixas de 
um supermercado, e a segunda é o gerenciamento de carteiras de ações pelo método de 
“random walk”. Ambos ilustram os fundamentos dos programas de simulação. 


GERADORES DE NÚMEROS ALEATÓRIOS 


Tecnicamente, o termo gerador de numeros aleatórios é absurdo; números, por si 
próprios, não são aleatórios. Por exemplo, 100 é um número aleatório? E 25? O que 
realmente se entende por gerador de números aleatórios é alguma coisa que cria uma 
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sequência de números a qual parece estar em ordem aleatória. Isso levanta uma questão 
mais complexa: o que é uma seqüência aleatória de números? A única resposta coneta é 
que uma amostra aleatória de números é uma sequência na qual não há qualquer relação 
entre os elementos. Essa definição leva ao paradoxo de que qualquer seqüência pode ser 
tanto aleatória quanto não-aleatória, dependendo do modo como a seqüência foi obtida. 
Por exemplo, essa lista de números 


123456789 

foi obtida batendo-se as teclas da fileira de cima, em ordem, no teclado, de modo que a 
seqüência não pode ser interpretada como de geração aleatória. Mas e se acontecesse de 
você tirar a mesma seqüência de um barril de bolas de tênis numeradas? Então essa seria 
uma seqüência gerada aleatoriamente. Esta discussão mostra que a aleatoriedade de uma 
seqüência depende de como ela foi gerada e não de qual seja ela. 

Tenha em mente que sequências de números gerados por um computador são 
determimsticas . Cada número, exceto o primeiro, depende do número que o precede. 
Tecnicamente, isso significa que um computador pode criar apenas seqüências 
pseudo-aleatórias. Entretanto, isso é suficiente para a maioria dos problemas e, para os 
propósitos deste livro, as seqüências serão chamadas simplesmente de aleatórias. 

Geralmente, é melhor que os números de uma seqüência aleatória estejam 
distribuídos uniformemente (não confunda isso com distribuição normal ou a curva 
senoidaL) Em uma distribuição uniforme, todos os eventos são igualmente prováveis, de 
modo que o gráfico de uma distribuição uniforme tende a ser uma linha reta em vez de 
uma curva. 

Antes da difusão do uso dos computadores, sempre que se precisava de números 
aleatórios eles eram produzidos atirando-se dados ou tirando-se bolas com números de 
uma jarra. Em 1955, a RAND Corporation publicou uma tabela com 1 milhão de dígitos 
aleatórios obtidos com a ajuda de uma máquina similar a um computador. Nos primeiros 
dias da ciência da computação, embora tenham sido inventados muitos métodos para gerar 
números aleatórios, a maioria foi descartada. 

Um método particularmente interessante que quase funcionou foi o desenvolvido 
por John von Neumann, o pai do computador moderno. Freqüentemente citado como 
método do meio do quadrado (middle-square method), ele eleva o número aleatório 
anterior ao quadrado e extrai os dígitos do meio. Por exemplo, se você estivesse criando 
números de três dígitos e o valor anterior fosse 121, você o elevaria ao quadrado obtendo 
14.641. A extração dos dígitos do meio produziria 464 como número seguinte. O problema 
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com esse método é que ele tende a dar um padrão de repetição muito curto chamado de 
ciclo, principalmente depois que um zero entrou no padrão. Por essa razão o método não é 
mais usado. 

Atualmente, o modo mais comum de se gerar números aleatórios é utilizando a 

equação 


K + 1 = (aR-n + c ) mod m 

onde as seguintes condições devem ser observadas: 

R >=0 
a >= 0 
c >= 0 
m > R 0 , acc 

Note que R n é o número anterior, é R n+ j é o número seguinte. Esse método é citado 
algumas vezes como método linear congruencial . A fórmula é tão simples que você 
poderia pensar que a geração de números aleatórios é fácil. Entretanto há uma armadilha: a 
eficiência dessa equação depende muito dos valores descem. A escolha desses valores 
às vezes tem mais de arte do que de ciência. Há regras complexas que podem auxiliá-lo a 
escolher os valores; entretanto, essa discussão cobrirá apenas algumas regras e 
experimentos simples. 

O módulo (m) deve ser bastante grande, pois ele determina o alcance dos 
números aleatórios. A operação do módulo produz o resto de uma divisão que utiliza os 
mesmos operadores. T>aí, 10 mod 3 é 1, porque 3 cabe em 10 três vezes com resto 1. 
Portanto, se o módulo for 12, a equação pode produzir números de 0 â 11, ao passo que se 
o módulo for 21.425, os números produzidos podem variar de 0 a 21.424. Lembre-se de 
que um módulo pequeno não afeta efetivamente a aleatoriedade - afeta apenas a extensão 
do intervalo. A escolha do multiplicador c e do incremento c é muito mais difícil. 
Normalmente, o multiplicador pode ser bastante grande e o incremento bastante pequeno. 
São necessários muitos testes para se confirmar que foi criado um bom gerador. 

Como um primeiro exemplo, aqui está um dos geradores de números aleatórios 
mais comuns. A equação mostrada em Ranl foi usada como base para o gerador de 
números aleatórios em várias linguagens populares de programação. 
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var 

al: i nteger ; t deve ter valo-r 1 antes da priweira chamada 3 

fLinction Ranl: real; 
var 

t: real; 
beg i n 

t:=( al*32749+3 ) mod 32749; 
a.l:=Trunc( t ); 

Ranl:=flbs< t/32749 ): 
end; í Ranl3 


Essa função possui três características importantes. Primeiro, o numero aleatório 
é, na verdade, um número inteiro, embora a função retorne um real. Os inteiros são 
necessários para o método congruencial linear, mas espera-se que geradores de números 
aleatórios, por convenção, retornem um número entre 0 e 1, isto é, um valor real. 

Segundo, a semente , ou valor inicial, é fixada através da variável global al. 
Antes da primeira chamada de Ran 1 a variável al deve ser inicializada em 1. 

Terceiro, em Ran 1, o número aleatório é dividido pelo módulo antes que a 
função retorne para gerar um numero entre 0 e 1. Se você estudar isso, verá que o valor de 
al, antes da linha de retomo, tem de estar entre 0 e 32.478. Portanto, quando al for 
dividido por 32.749, será obtido um número igual ou maior que 0 mas menor que 1. 

Muitos geradores de números aleatórios não são úteis porque produzem 
distribuições não uniformes ou porque produzem sequências curtas e repetitivas. Mesmo 
que esses problemas pareçam bastante insignificantes, se o gerador for usado constante¬ 
mente ele pode provocar resultados tendenciosos. A solução é criar vários geradores 
diferentes e usá-los individual òu conjuntamente para obter números mais aleatórios. O 
uso de vários geradores ajuda a suavizar a' distribuição das seqüências, reduzindo as 
pequenas inclinações de cada gerador. Portanto, aqui está uma outra função geradora de 
números aleatórios, chamada Ran2, que produz uma boa distribuição. 

var 

a2: integer.; {deve ter valor Z03 antes da or i ^ i j chamada' 

function Ran2: real; 
v a r 

t : real: 
beg i n 

t : -( 82*10001 + 3 ' rnod i ? 4 1 7 ; 
aZ^Truric^ t } .! 

Ran 2 : =Rbsí t/174 17 
end; C Ran2 5 

A variável global a2 deve ser inicializada em 203 antes da primeira chamada de Ran 2. 
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Cada um desses geradores de números aleatórios produz uma boa sequência de 
numeros aleatórios. Mesmo assim, a questão permanece: qual a aleatoriedade das 
seqüências? Qual a qualidade desses geradores? 


DETERMINANDO A QUALIDADE DE UM GERADOR 

Você pode utilizar diversos testes para determinar a aleatoriedade de uma sequência de 
números. Nenhum desses testes dirá se a seqüência é aleatória; pelo contrário, eles dirão 
se ela não é. Os testes podem identificar uma seqüência não-aleatória, mas, mesmo que um 
teste específico não encontre um problema, isso não significa que dada seqüência seja 
realmente aleatória. Entretanto, o teste de fato aumenta nossa confiança no gerador de 
números aleatórios que produziu a seqüência. Para o propósito deste livro, a maioria dos 
testes é complicada ou demorada demais na sua forma mais rigorosa. Portanto, você verá 
agora, brevemente, alguns modos simples com os quais pode-se testar uma seqüência. 

Para começar, aqui está um modo de descobrir quanto os números de uma 
seqüência ajustam-se ao que se poderia esperar que fosse uma distribuição aleatória. Por 
exemplo, digamos que você estivesse tentando gerar seqüências aleatórias com os dígitos 
de 0 a 9. A probabilidade de ocorrência de cada dígito é de 1/10, pois existem 10 
possibilidades para cada número na seqüência, todas igualmente possíveis. Suponha que a 
seqüência 


91824637582904247862 

tenha sido gerada. Se você contar o número de vezes que cada dígito ocorre, o resultado é 


Dígito Ocorrências 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


1 

1 

4 

1 

3 

1 

2 

2 

3 

2 
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Você deveria se perguntar em seguida se essa distribuição é suficientemente similar à 
esperada. 


Lembre-se: se um gerador de números aleatórios for bom, ele gerará sequências 
aleatoriamente. Em um estado realmente aleatório, todas as seqüências são possíveis. Isso 
parece implicar que qualquer sequência gerada deva ser qualificada como uma seqüência 
aleatória válida. Então, como você poderá dizer se a seqüência dada agora é aleatória? De 
fato, como qualquer seqüência de dez dígitos pode ser não-aleatória, se qualquer 
seqüência é possível? A resposta é que algumas seqüências têm maior probabilidade de 
serem aleatórias que outras. Você pode determinar a probabilidade de uma dada seqüência 
ser aleatória, usando o teste de qui-quadrado. 

Basicamente, o teste de qui-quadrado subtrai o número esperado do número 
observado de ocorrências para todos os números gerados. Esse resultado é chamado de V. 
Você pode usar V para encontrar uma percentagem em uma tabela de valores de 
qui-quadrado. Essa percentagem representa a probabilidade de que tenha sido produzida 
uma sequência aleatória. Uma pequena tabela de qui-quadrado é dada na Figura 8-1; você 
pode encontrar tabelas completas na maior parte dos livros de estatística. 



p=99% 

p=95% 

p=15% 

/?=50% 

p = 25% 

p = 5% 

72 = 5 

0,5543 

1,1455 

2,675 

4,351 

6,626 

11,07 

71=10 

2,558 ‘ 

3,940 

6,737 

9,342 

12,55 

18,31 

71=15 

5,229 

7,261 

11,04 

14,34 

18,25 

25,00 

tz=20 

8,260 

10,85 

15,45 

19,34 

23,83 

31,41 

72=30 

14,95 

18,49 

24,48 

29,34 

34,80 

43,77 


Figura 8-1 Valores escolhidos de qui- quadrado. 
A fórmula para obter V é 




onde O i é o número de ocorrências observadas, E t é o número de ocorrências esperadas, e 
N é o número de elementos discretos. O valor de E { é obtido multiplicando-se a 
probabilidade da ocorrência de cada elemento pelo número de observações. Nesse caso, 
por esperarmos que cada dígito ocorra um décimo das vezes e que sejam tomadas 20 
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amostras, o valor para E é 2 para todos os dígitos. N é 10 pois existem 10 elementos 
possíveis - os dígitos de 0 a 9. Portanto, 


y = d - 2) 2 _ ( 1 - 2) 2 + ( 4 ~ 2) 2 + ( 1 - 2) 2 + ( 3 - 2 ) + 

2 2 2 2 2 

( 1 - 2) 2 _ ( 2 — 2) 2 + ( 2 — 2) 2 j . ( 3 ~ 2) 2 + ( 2 ~ 2) 2 

2 2 2 2 2 


2 


1_ 

9 



J_ -r 0 + 0 + _L + o 
2 2 


= O 


Para determinar a probabilidade de que uma seqüência não seja aleatória, ache a linha na 
tabela mostrada na Figura 8-1 que iguale o número de observações; neste caso é 20. 
Então, siga até encontrar um número que seja maior que V. Neste caso, é a coluna 1. Isso 
quer dizer que existe uma probabilidade de 99% de qué uma amostra de 20 elementos 
tenha um V maior que 8,260. Por outro lado, isso significa que existe apenas 1% de 
probabilidade de que a seqüência testada tenha sido gerada aleatoriamente. Para “passar” 
no teste do qui-quadrado, a probabilidade para V deve cair entre 25% e 75%. (Essa faixa é 
obtida através do uso de matemática que vai além do propósito deste livro.) 

Entretanto, você pode confrontar essa conclusão com a seguinte questão: desde 
que todas as sequências são possíveis, como pode essa seqüência ter apenas 1% de chance 
de ser legítima? A resposta é que trata-se apenas de uma probabilidade - o teste de 
qui-quadrado, na verdade, não é nenhum teste, é apenas medida de segurança adicional. 
De fato, para evitar a rejeição de um bom gerador de números aleatórios, se você utilizar o 
teste de qui-quadrado, deverá obter várias seqüências diferentes e tomar a média dos 
resultados. Qualquer seqüência simples poderia ser rejeitada, mas várias seqüências em 
média conjunta devem fornecer um bom teste. 

Por outro lado, uma seqüência pode passar no teste de qui-quadrado e mesmo 
assim não ser aleatória. Por exemplo, 


1357913579 

passa no teste de qui-quadrado mas não parece ser muito aleatória. Nesse caso, foi gerada 
uma escala . Uma escala é simplesmente uma seqüência de números estritamente crescente 
ou decrescente em intervalos igualmente espaçados. Neste caso, cada grupo de cinco dígitos 
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está em ordem estritamente crescente, e, como tal (supondo-se que ele continue), não seria 
uma seqüência aleatória. Escalas também podem ser separadas por dígitos de ruído: os 
dígitos que compõem a escala podem estar dispersos por uma sequência que, de outro 
modo, seria aleatória. E possível elaborar testes que detectem essas situações, mas eles vão 
além do propósito deste livro. 

Uma outra característica a ser testada é o comprimento do período\ ou seja, 
quantos números podem ser gerados antes que a seqüência comece a se repetir - ou pior, 
que degenere num ciclo curto. Todos os geradores de números aleatórios, baseados em 
computador, eventualmente repetem uma seqüência. Quanto mais longo o período, melhor 
o gerador. Mesmo que a freqüência dos números dentro do período seja uniformemente 
distribuída, isto não constitui uma série aleatória, pois uma série realmente aleatória não se 
repete de modo consistente. Geralmente, um período de diversos milhares de números é 
suficiente para a maioria das aplicações. (Novamente, pode se executar um teste para isso.) 

Diversos outros testes podem ser aplicados para determinar a qualidade de um 
gerador de números aleatórios. De fato, têm havido provavelmente mais algoritmos 
escritos para testar geradores de números aleatórios do que para construí-los. Aqui está um 
outro teste que permite, através de um gráfico que mostra como uma seqüência de números 
aleatórios distribui seus valores, testar visualmente um gerador de números aleatórios. O 
ideal seria que o gráfico se baseasse na freqüência de cada número. Entretanto, isso seria 
impraticável, já que um gerador de números aleatórios pode produzir milhares de números 
diferentes. Em vez disso, você criará um gráfico agrupado pelo primeiro dígito de cada 
número; por exemplo, desde que todos os números aleatórios produzidos estejam entre 0 e 
1, o número 0,9365783 será agrupado sob o 9, e o número 0,34523445 será agrupado sob 
o 3. Isso quer dizer que o gráfico de saída do programa de monitoração de números 
aleatórios tem 10 colunas, cada uma delas representando quantas vezes ocorreu um 
determinado número de um grupo. O programa também imprime a média de cada 
seqüência, que pode ser usada para detectar uma tendência dos números. Como os demais 
programas gráficos deste capítulo, este programa só roda num IBM PC que possua uma 
placa CGA. (Nota do Revisor Técnico: Este é o caso da maioria dos PCs nacionais.) 
Ambas as funções anteriormente desenvolvidas, Ranl e Ran2, assim como a função 
Random, interna do Turbo Pascal, são mostradas lado a lado para facilitar a comparação. 

orograw Gerd dor_Pan; fcompara trçs rotinas de seracao de numeros 

randowicos ) 

const 

CONTR = 1000.: 

var 

freqljfreqZ.. ireq3: arrayíl, ,9] of mteger: 
a 2.a 1 : in teger: 
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£,£ 2, £ 3; real: 
r , r 2 , r 3 : real; 
x,y: integer; 

procedure Mostra; 
var 

t: i nteger.: 
beg i n 

for t:=0 to R do 
beg i n 

0raw< t*10, ISO,t*10,180-treqltt j,2 >j 
Draw( tllO+liO,180,t*i0+110,180-£ r e o2C t 3,2 
0raw( t.¥l 0+220 , ISO . t* 10 + 220 , 1 SO-f r eq 3C t j , 2 '; 
end: 

end ; { Mo-str a } 

furction Ranl: real; 

• v a r 

t í real: 
beg i r, 

t : = < a1*32749+3) mod 327 4 9; 
a i ; = Tnj ncí t > í 
R an 1 : = Rbs < t''32749) ; 
end; iRanl } 

functior Ran2; re a 1; 
var 

t : real; 
beg i n 

ts=C a23K10001 + 3> wod 17417; 
a2 : =Truncí t s >} 

Ran2 := Rbsí t/ 174 17); 
end; { Ran2 } 

begi n 

GraphColorMode.: 

Paletteí0 >i Cesçalhe as cores do gratico} 
Gotox y( 1,1 ) 

Wr i te( ' C0MPRRRCR0 ENTRE 03 GERR0GRE3' ■' 

Gotox y ( 1,2 Ví 

Writ e ( 'DE NUMEROS R L E R T□RI0S' >• 

Dr a wí 0 , i80, R 0, 130,3 ); 

0raw« 110,130,200,ISO,3>: 

Draw( 2 20,180,310, ISO, 3 V: 

Gotox yí 5,25 > J 

Writeí ' RRND0M RRN 1 RRN2 ' 

a 1;=1; a 2:=203; 

£ := 0; f 2;= 0í f3:=0; 

f or x:=0 to R do 

begin {inicializa as matrizes de frequercial 
freqlf x ]: =0; 

£req2C x j:=0; 
freq3C x ] :=0; 
end; 

tor x;=l to CGNTR do 
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begin 

r; =RandQTn» (produz a» numero aleatório} 
f ; =f+r; {soma para o calculo ds wedia) 

y:=Truno' r*iO)í {converte r n u m inteiro entre 0 e 
freqlCy3;=freqlty3+15 Ccontasem da frequência j 

r2:=Ran1; {produz um numero aleatoriol 

F 2 : = F 2 + r 2 ? { 5 o»a para o calculo da i»ecia 3 

y:=Truncf r2*10 )! {converte r num inteiro entre 0 e -! 
F req 2C y 3 : =f re q2C y 3+1{contagem da Frequência' 

r3:=Ran2; {produz um numero aleatorio3 

F3:=F3+r3; {soma para o calculo da media} 

y : =Trur>c< r3*10 3: (converte r num inteiro entre 0 e c ! 

Freq3Cy3:=FrequLy3+1: (contagem da frequência} 

Mostra; CgraFico das Frequências} 

GotDX y(1 f 25 3; 

Wr i te< x ); 
end; 

Re adLn: 

Gr aphCDlorModeí 

WriteLní-'R media de Ra n dom e'': ' .F/C0NTR3: 

WriteLn('R media de Rani e ' * : ' . F2/CDNTR); 

WriteLn(*R media de Ran2 e' 'i ' , F3/CONTR3; 

ReadLn; 

TextMode : 
end , 


Neste programa, cada função gera 1.000 números, e a função de freqüência 
apropriada é atualizada com base no primeiro dígito. Depois que cada número aleatório é 
gerado, o procedimento Mostra traça a matriz de todas as três frequências na tela, de 
modo que você pode acompanhar o crescimento de cada uma. A Figura 8-2 mostra a saída 
de cada gerador de números aleatórios ao final dos 1.000 números. A média foi 0,489932 
para Ranl, 0,4858311 para Ran2 e 0,500279 para Random. Estes números são 
aceitáveis. 

Para utilizar o programa eficientemente, você deve prestar atenção tanto na 
forma quanto no modo como o gráfico cresce para detectar os ciclos curtos. Por exemplo 
Ran2 gera significativamente menos números entre 0,9 e 0,999999 (a barra da extrema 
direita) do que fazem tanto Random quanto Ranl. 

E claro que esse teste não é conclusivo, mas ele lança uma luz no modo como o 
gerador produz seus números, e pode acelerar o processo de teste, permitindo que funções 
obviamente pobres sejam rejeitadas rapidamente. (Ele também é um belo programa para 
quando alguém pede que você lhe mostre o seu computador!) 
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USANDO GERADORES MÚLTIPLOS 


Uma técnica simples que melhora a aleatoriedade das seqüências produzidas 
pelos três geradores é combiná-los sob o controle de uma função mestra. Essa função 
escolhe entre dois deles com base no resultado do terceiro. Com essa técnica você pode 
obter períodos muito longos e diminuir o efeito de qualquer ciclo ou tendência. A função 
chamada de CombRandom, mostrada aqui, combina Ranl, Ran2 e Random: 


function CombRandom: re:.i; 

[selecao aleatória de senadores] 
var 

£ : real; 

beg i n 

£:=Ran2; 

if £ > 0.5 then CowbRandon;=Rando» 

else CombRandom:=Ran1; (selecao aleatória) 

end.l t CombRandom) 


O resultado de Ran2 é usado para decidir se Ranl ou Random determinará o valor da 
função mestra CombRandom. Com esse método, o período de CombRandom é igual ou 
maior que a soma do período de Random e Ranl. Portanto, esse método toma possível 
produzir seqüências com períodos muito longos. Sinta-se livre para alterar a mistura entre 
Random e Ranl através da mudança no if, obtendo a distribuição exata que você deseja 
entre Random e Ranl. Você pode, também, acrescentar geradores adicionais e selecionar 
entre eles, para obter períodos ainda mais longos. 

Aqui está um programa para mostrar o gráfico de CombRandom e sua média. A 
Figura 8-3 mostra o gráfico final depois que 1.000 números aleatórios foram computados. 
A média de CombRandom foi 0,496833. 

progra» Mui t i _Randow; £ combina Ires geradores de nuweros randowicos 

num s o' ) 


const 

CONTR = 1000; 

var 

freq: arrayC1..9) o£ integer; 
a2,al: integer; 

£r r: real; 
x,y: integer; 

procedure Mostra; 
var 

t: integer; 
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Figura 8-2 Saída do gerador de números aleatórios. 


begin 

for t:=0 to 9 do 
begin 

Draw< t*10+110,lBO, t*10+110,100-f reqC t 3,2 ); 
end; 

end; (Mostra} 

function Ranl; realj 
var 

t: real; 
begin 

t:»<al*32749+3) *od 32749; 
al:=Trunc< t ) j 
Ranl;=Rbs( t/32749 ); 
end; {Ranl) 

function Ran2: real; 
var 

t: real; 
begin 

t:=< a2I10001+3) »od 17417; 
a2:=Trunc<t ); 

Ran2:=Rbs( t/17417 ); 
end; {Ran23 
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RESULTADO OBTIDO PELA COMBINACAO 
DE IRES GERADORES DE NUMEROS ALEATÓRIOS 



1086 


Figura 8-3 Gráfico final de CombRandom. 

furction CombRandowi realj 
Cselecao aleatória de geradores) 
var 

f : real; 

begi n 

£ ! = Ran2; 

i£ £ > 0.5 then CowbRando»:=Random 
else CowbRandow:=Ranl; (selecao aleatória ) 
endj CCombRandow3 


begir 

GraphColorMode; 

Palette< 0 ); Cescolhe as cores do grafico) 
Gotoxy< 1,1); 

Write< 'RESULTR00 OBTIDG PELR COMBINRCAO' ); 

Gotoxy< 1,2); 

Write( 'DE TRES GERADORES DE NUMEROS RLERTÜRIOS' >; 
Draw< 110,180,200,180,3 ); 

Gotoxy< 5,25 ); 
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al:=l; a2:=203; {inicializa as vanaveis dos geradores} 

£ := 0 ; 

for x:=0 to 9 do £reqCx3:=0; {inicializa as «atrizes de frequência} 

£or x:=l to CDNTR do 
beg i n 

r : =Co»bRandow } {produz uw numero aleatono) 
f:=£+r; (soma para o calculo da media 3 
y í =Trunc( r*10) ; {converte r nuw inteiro entre 0 e 9 } 

£reqf y3:=freqf y3+1; {contagem da frequência 3 

Mostra; {grafico das frequências} 

Botox y< 1,25); 

Wr i te( x ); 

end; 

ReadLn j 

GraphColorMode; 

WriteLn< 'R «edia de CowbRandow e' ' ; ' >; 

UriteLn< £/CDNTR ); 

ReadLn; 

TextMode; 
end. 


SIMULAÇÕES 


O restante deste capítulo examina a aplicação de geradores de números aleatórios às 
simulações . Uma simulação é um modelo computadorizado de uma situação do mundo 
real. Qualquer coisa pode ser simulada, mas o sucesso de uma simulação depende do 
conhecimento que o programador tem sobre o evento a ser simulado. Como muitas 
situações do mundo real têm milhares de variáveis, muitas delas são difíceis de se simular 
eficazmente. Entretanto, há diversas situações que se prestam para a simulação. 

As simulações são importantes por duas razões. Primeiro, elas lhe permitem 
alterar os parâmetros de uma situação e observar os efeitos, quando, na realidade, tais 
experiências seriam muito caras ou perigosas. Por exemplo, a simulação de uma usina 
nuclear permite testar o efeito de certas falhas técnicas sem nenhum risco. Segundo, uma 
simulação permite a criação de situações impossíveis no mundo real. Por exemplo, um 
psicólogo poderia querer estudar os efeitos do aumento gradual da inteligência de um rato 
para ver em que nível ele percorre um labirinto mais rapidamente. Apesar disto ser 
impossível, na vida real, uma simulação pode lançar alguma luz na comparação entre 
inteligência e instinto. Segue o primeiro dos dois exemplos de simulação deste capítulo. 
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SIMULAÇÃO DE FILAS NUM SUPERMERCADO 

O primeiro exemplo simula as filas que se formam nas caixas de um supermer¬ 
cado. Suponha que a loja fique aberta dez horas por dia, com horários de pico das 12 
às 13 horas e das 17 às 18 horas. O intervalo das 12 horas é duas vezes, e o horário 
das 17 é três vezes mais movimentado que o normal. Durante a simulação, um gerador de 
números aleatórios “cria” fregueses, um segundo gerador determina o tempo de um 
freguês no caixa, e um terceiro gerador decide em que fila os fregueses que vão chegando 
ficarão. O objetivo da simulação é ajudar a gerência a determinar o número ótimo de 
caixas abertos durante um dia típico, de modo que nunca haja mais de dez pessoas por fila, 
e de modo que nenhum caixa aberto fique sem serviço. 

O segredo deste tipo de simulação está na criação de processos paralelos. 
Apesar de o Turbo Pascal não permitir a simultaneidade de processos, é possível simular o 
multiprocessamento através da intercalação de diversas funções no fluxo de execução, 
como ocorre nos sistemas de time-sharing . Por exemplo, a função que simula a passagem 
de fregueses pelos caixas só processa uma parte dos fregueses de cada vez. Desta forma, 
os processos avançam mais ou menos ao mesmo tempo. O programa principal, sem os 
procedimentos e funções de apoio, está listado a seguir: 

program fila_do_caixa; {Simulacao de filas em caixas de supermercado) 

($1 GRAPH.P) (incluir rotinas graficas) 
var 

filas,conta: array[0. .9] of integer; 
aberta: array[0. .9] of boolean; 
fregues,tempo: integer; 
al,a2: integer; 
y,x: integer; 
muda: boolean; 

beg in 

GraphCo1orMode; 

Palette(O); (prepara modo grafico) 

al:=0; a2:=203; (inicializa variaveis do gerador aleatorio) 

muda:=FALSE; 
f regues:=0; 
tempo:=0; 

for x:=0 to 9 do 
beg in 

filasCx]:=0; (inicializa filas} 

abertaCx]:=FALSE; (nenhum fregues ou caixa aberto no inicio} 
conta[x3:=0; (conta filas} 
end ; 

GotoX Y ( 20,24 ) ; WriteCl 10'); 

GbtoXY(1,24); Write('F I L A 5'); 
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(comecà o dia abrindo o primeiro caixa) 
aberta[0]: =TRUE ; 

repeat 

Add fregues; 

Add fi la ; 

Mos tra; 

Passa; 

Mostra; 

ii (tempo > 30) and (tempo < 50) then Addfregues; 

if (tempo > 70) and (tempo < 80) then 

begin 

Addtregues; 

Addfregues; 
end ; 

tempo: =tempo+l; 

until tempo > 10O; (fim do dia) 

ReadLn; 

TextMode; 
end . 


0 arquivo GRAPH.P foi incluído de modo que o programa possa utilizar a função gráfica 
ampliada Cirde. 

O loop principal dirige toda a simulação: 

repeat 

flddCustj 
RddQueue; 

0isplay; 

ChecKOut; 

0 i spiay; 

if (time > 30) and (time < 50) then RddCust; 
if (time > 70) and (time < 80) then 
beg i n 

RddCust ; 

RddCust; 
end; 

ti me :=tiwe+1; 

until time > 100; (end of day 3 


A função MaisFregueses utiliza Ranl ou Random para gerar o número de fregueses que 
chega às caixas a cada requisição. FilaCresce é usada para, de acordo com os resultados 
de Ran2, colocar fregueses na fila de um caixa aberto, além de abrir uma fila nova, caso 
as já abertas estejam cheias. Desenha mostra um gráfico da simulação. Caixa usa Ran2 
para atribuir uma lista de compras a cada freguês; cada chamada reduz uma unidade da 
lista. Quando a lista de um freguês for 0 ele deixará o caixa. 
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A variável tempo altera a taxa com que são gerados os fregueses, de modo a 
corresponder às horas de pico da loja. Cada passo através do loop representa um décimo 
de hora. 


As Figuras 8-4, 8-5 e 8-6 mostram o estado de cada caixa quando tempo=28, 
tempo=60 e tempo=88, correspondendo ao tempo normal, ao fim do primeiro pico, e ao 
fim do segundo pico, respectivamente. Note que no final do segundo pico, é necessário um 
máximo de 5 caixas. Se a simulação foi programada adequadamente, isso significa que o 
supermercado não precisa operar os outros cinco caixas. 


queue 1: 10 
queue 2: 8 
queue 3: 0 
queue 4: 0 
queue 5: 0 
queue 6: 0 
queue 7: 0 
queue 8: 0 
queue 9: 0 
queue 10: 0 


tine: 28 


Check-out 1 ines: 


ÒÔOOOOOôOO 

1 10 


Figura 8-4 Estado dos caixas quando tempo=28. 

Você pode controlar, diretamente, diversas variáveis do programa. Primeiro, 
você pode alterar o modo como os fregueses chegam e o número deles. Você também pode 
alterar MafeFregueses para que à medida que as horas de pico se vão, retomem 
gradualmente mais ou menos fregueses. O programa supõe ainda que os fregueses 
escolherão aleatoriamente a fila na qual se colocarão. Embora isso possa ser verdade para 
alguns fregueses, outros obviamente escolherão as filas mais curtas. Você poete computar 
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isso alterando a fnnçâo FilaCresce para colocar, algumas vezes, fregueses na fila mais 
curta e outras vezes aleatoriamente. A simulação não leva em conta acidentes ocasionais - 
como uma garrafa de ketchup quebrada - ou um freguês recalcitrante no caixa, que fariam 
com que a fila “empacasse” temporariamente. 



Figura 8-5 Estado dos caixas quando tempo = 60. 

Mostramos aqui o programa completo: 


program fila_do_caixa; (Simulacao de filas em caixas de supermercado) 

(SI GRAPH.P) {incluir rotinas graficas) 

var 

filas,conta: array[0..9] of integer; 
aberto: arrayC0..9) of boolean; 
fregues,tempo: integer; 
al,a2: integer; 
y,x: integer; 
muda:' boolean; 
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function Ranlí real; 
var 

t: real; 
begin 

t:=(al*32749+3) mod 32749; 
al:=T runc (t); 

Ran1:=Abs(t/32749); 
end; (Ran1} 

tunction Ran2: real; 
var 

t: real; 
beg in 

t:=(a2*10001+3) mod 17417; 
a2:=Trunc(t); 

Ran2:=Abs(t/17417); 
end; {Ran2 > 

function CombRandom: real; 

(selecao aleatória de geradores) 
var 

f s real ; 

begin 

f:=Ran2; 

if f > 0.5 then CombRandom:=Random 
else CombRandom:=Ranl; (selecao aleatória) 
end; {CombRandom) 

procedure Maisfregues; 
var 

f , r: rea1; 
begin 

if muda then f:=Random 
else f:=Ran2; 

if f > 0.5 then 

if f < 0.6 then fregues:-fregues+1 
else if f < 0.7 then fregues:-fregues+2 
else if f < 0.8 then fregues:=fregues+3 
else fregues:=fregues+4; 

end; (Maisfregues) 

procedure Passa; 
var 

t: integer; 
begin 

for t:=0 to 9 do 
begin 

if filasCt] O 0 then 
begin 

(gera tempo necessário para passar pelo caixa) 
while conta(t3=0 contaCt]:=Trunc (Ranl*5); 
(outro fregues) 
conta[t3:=conta[t]-l; 

if contaC 13=0 then fi1as[t]:=filas(13-1; 


(Mais um fregues) 
(Mais dois fregueses) 
(Mais tres fregueses) 


(alterna entre) 
(os geradores) 
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(remove o fregues} 
end ; 

if fi lasCt]=0 then aberto[t]:=FALSE; {fecha o caixa t> 
end ; 

end; {Passa} 

function Cai xas_Lotados: boolean; 

(verifica se caixas estão lotados} 
var 

t: integer; 


begin 

Caixas_Latados:= TRUE; 
for t:=0 to 9 do 

if (filasCt] < IO) and aberto[t] then Caixas_Lotados:=FALSE; 
end; (Caixas_Lotados} 

procedure Maisfila; 

(aberto check-out fila} 
var 

t,fi l a : in teger ; 
feito: boolean; 

begin 

feito:= FALSE; 

whi le fregues <> 0 do 

beg in 

if CaixasJLotados then 
begin 

t:=0; 

repeat 

if not abertoC t] then 
begin- - 

abertoCt]:=TRUE; 
fei to:=TRUE; 
end; 
t :=t+l; 

until feito or (t=9); 

end 
e 1 se 
begin 

fi1 a:=T runc (Ran2*10) ; 

if abertoC fila} and (filas[fila] < 10) then 
begin 

filasCfila]:=filas(fila]+l; 
f regues : =*f regues-1 ; 
end ; 
end ; 

if Caixas__Lotados and aberto[9} then fregues:=0; (todos lotados} 
end ; 

end; (Maisfila} 

procedure Mostra; 
var 

t: integer; 


beg in 

GotoXY(15,1); 

Write('Tempo: tempo); 
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for t:=0 to 9 do 
begin 

Draw<(t*10)+160,180,(t* 10)+160,80,0) ; 

Di rc le ( (t* 10 ) +160,180,3,3)'; 

Draw ( (t*10)+i60,i80, < t*10 )+160,180-f ilasC t] *JL0 ,2) ; 

GotoXYd, 1 + t) ; 

Write(‘Fila *,t+1,': filasCt],' '); 

end; 

end; (Mostra) 
begin 

GraphColorMode; 

Palette(O); (prepara modo grafica) 

al:=0; a2:=203; (inicializa variaveis do gerador aleatorio) 

muda:=FALSE; 
fregues :=0; 
tempo:*0; 

for x:=0 to 9 do 
begin 

fi1asCx]:=0; (inicializa filas) 

aberto(x]:=FALSE; (nenhum fregues ou caixa aberto no inicio) 
conta[x]:=0; (conta filas) 
end ; 

GotoXY ( 20,24 ) ; WriteCl 10 ); 

GatoXY (10,24); Write('Fil as > ); 

(comeca o dia abrindo o primeiro caixa) 
aber to C 0]:=TRUE; 

repeat 

Maisfregues; 

Maisfila; 

Mostra; 

Passa; 

Mos tra; 

if (tempo > 30) and (tempo < 50) then Maisfregues; 

if (tempo > 70) and (tempo < 80) then 

begin 

Maisfregues; 

Maisfregues; 
end ; 

tempo:=tempo+l; 

until tempo > 100O; (fim do dia) 

ReadLn ; 

Tex tMode; 
end . 


MONITORAÇÃO DE CARTEIRAS DE AÇÕES 

A arte do gerenciamento de carteiras de ações é geralmente baseada em várias teorias e 
suposições sobre muitos fatores, alguns dos quais não podem ser facilmente conhecidos, a 
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queue 18 
queue 2: 9 

queue 3: 6 

queue 4: 6 

queue 5: 7 
queue 6: 0 

queue 7: 0 

queue 8: 0 

queue 9: 0 

queue 10: 0 


tine*. 88 


Check-out lines: 



Figura 8-6 Estado da fila de caixas quando tempo = 88. 


menos que você seja do meio. Existem estratégias de compra e venda, baseadas em 
análises estatísticas de preços de ações, de preço do ouro, de PNB, e até mesmo de ciclos 
da lua. A vingança do cientista da computação é usar o computador para simular o 
mercado livre - a bolsa de ações - sem todos os aborrecimentos da vida real. 

Você pode pensar que o mercado de ações é simplesmente difícil demais para 
ser simulado; que ele possui variáveis demais, muitas das quais desconhecidas, e que 
algumas vezes muda bruscamente enquanto em outras navega placidamente. Entretanto, o 
próprio problema é a solução: devido ao fato de o mercado ser tão complexo, pode ser 
pensado como sendo composto de eventos de ocorrência aleatória. Isto significa que você 
pode simular o mercado de ações como uma série de ocorrências de eventos desligados e 
aleatórios. 
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Essa simulação é carinhosamente chamada de método cambaleante de adminis¬ 
tração de carteiras. O termo origina-se do clássico experimento que envolve um bêbado 
perambulando na rua, vagando de um poste a outro. Com a teoria do random-walk você 
deixa que a sorte seja seu guia, já que ela é tão boa quanto qualquer outra. 

Antes de ir adiante, esteja avisado: o método random-walk é desacreditado por 
corretores profissionais. Ele é apresentado aqui apenas para seu divertimento, não para 
ajudá-lo a realizar decisões de investimentos. 

Para aplicar o método random-walk , selecione dez companhias do Wall Street 
Journal por algum métdo casual - por exemplo, jogando dardos no jornal e usando as 
companhias cujo nome você acertar. Depois de ter escolhido dez companhias, alimente o 
programa de simulação de andar aleatório com elas. 

O programa lhe dirá sempre para fazer uma destas cinco transações: 

- Vender 

- Comprar 

- Especular 

- Comprar na margem 

- Segurar (não fazer nada) 

A operação de vender, comprar e segurar ações são auto-explicativas. Aqui, estamos 
chamando de especular à operação de vender ações das quais não se tenha esperança de 
comprá-las mais barato e entregá-las rapidamente ao comprador. Esta é uma maneira de 
ganhar dinheiro quando o mercado está caindo. Quando você compra na margem, usa (por 
uma pequena taxa) o dinheiro de corretagem da casa para financiar parte do custo das 
ações que adquiriu. A idéia que está por trás de comprar na margem é que a ação suba o 
suficiente, e você ganhe mais dinheiro do que g anhar ia se tivesse comprado uma 
quantidade menor de ações à vista. Isso só dá dinheiro em um mercado com tendência a 
subir muito. 

O programa random-walk é mostrado aqui. A função interna KeyPressed checa 
o estado do teclado e espera pela pressão de uma tecla. Isso permite que você use a 
seqüência produzida pelo gerador de números aleatórios em um ponto aleatório - 
basicamente, criando um valor somente aleatório, que evita que o programa dê sempre o 
mesmo conselho. 
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program Acoes; {Programa de investimentos por 'random walk'} 
type 

str80 = stringCBO]; 

fazer = (comprar,vender,esperar,especular,emprestar); 

var 

t: integer; 

acoes: arraytl..10] of str80; 
ch: char; 
transacao: fazer; 
f: rea1; 

procedure Entrada; {Digitacao dos nomes das acoes) 
var 

t: integer; 
beg in 

for t: = l to 10 do 
beg in 

Write(’Digite o nome da acao: ); 

ReadLn(acoes [ t ] ) ; 
end ; 

end; {Entrada) 

function Fazer_a_seguir: fazer; 
var 

f: rea1 ; 
beg in 

Fazer_a_seguir:=esperar; 
case Trunc(Random*10) of 

1: Fazer_a_seguir:=vender; 

2: Fazer_a_seguir:=comprar; 

*3: Fazer_a_seguir:=especular; 

4: Fazer_a_seguir:=emprestar; 
end ; 

end; {Fazer_a_seguir) 
beg in 

Write('Espere um pouco e pressione uma tecla...'); 
repeat 

f:=Random; {inicializa gerador) 
until KeyPressed; 

WriteLn ; 

WriteLn ( 'Digitar novas acoes? (S/N) '); 

Read(kbd,ch); 

if UpCase(ch)='S' then Entrada; 
repea t 

for t:=l to 10 do 
beg in 

transacao:=Fazer_a_seguir; 
if Length(acoes[t]) > O then 

begin 

Write(acoesC 13,' : ); 

case transacao of 

comprar: WriteLn('comprar') ; 
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vender: WriteLn('vender'); 
especular: WnteLn( 'vender especular ); 
emprestar: WriteLn('comprar emprestando'); 
esperar : WriteLn( 'esperar' ); 
end ; 
end ; 
end ; 

WriteLn(' Mais uma vez? (S/N) ' ); 

Read(kbd,ch); 
until UpCase(ch)='N'; 
end . 


O programa requer que você interprete suas instruções da seguinte maneira: 


Instrução 


Interpretação 


compre 

venda 

especule 

compre na margem 
segure 


Compre tantas ações quantas puder, sem pedir dinheiro emprestado. 

Caso você não possua alguma ação, venda todas. Então selecione, aleatoriamente, 
uma outra companhia para reinvestir seu dinheiro. 

Venda 100 ações da companhia especificada, mesmo que você não as possua, 
na esperança de comprar mais barato no futuro. 

Tome dinheiro emprestado para comprar ações da companhia especificada. 

Não faça nada. 


Por exemplo, se você fosse rodar este programa usando os nomes fictícios de companhias 
de Com 1 a Com 10 , os conselhos do primeiro dia poderiam ser mais ou menos assim: 


Com 1: 

venda 

Com 2: 

compre 

Com 3: 

compre na margem 

Com 4: 

especule 

Com 5: 

segure 

Coro 6: 

segure 

Com 7: 

segure 

Com 8: 

venda 

Com 9: 

segure 

Com 10: 

especule 


Os conselhos do segundo dia poderiam ser: 


Com 1: segure 
Com 2: segure 
Com 3: venda 
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Com 4: especule 

Com 5: segure 

Com 6: segure 

Com 7:* compre 

Com 8: compre na margem 

Com 9: segure 

Com 10: vencia 

Lembre-se: devido ao fato do programa esperar que você pressione uma tecla, sua saída 
diferirá daquela mostrada aqui. Você pode preferir rodar o programa semanalmente ou 
mensalmente em vez de diariamente. 

Esteja livre para alterar o programa de qualquer maneira. Por exemplo, o 
programa poderá dar números de ações para comprar, dependendo do dinheiro que você 
disponha para investimento. Lembre-se, novamente, de que este programa é apenas para 
diversão e que não é um modo recomendado de efetuar realmente investimentos no 
mercado. 

De qualquer modo, é interessante criar uma carteira de papéis e seguir o seu 
desempenho. 




Escrever um programa que analise e resolva uma expressão numérica qualquer, 10-5*3 
por exemplo, é um problema que a imensa maioria dos programadores prefere ignorar, 
deixando a solução a cargo de alguns iluminados, sumo-sacerdotes aptos a 'conhecer os 
segredos mais profundos da máquina. Quase todos os usuários ficam impressionados pelo 
modo como compiladores e interpretadores de linguagens de alto nfvel convertem 
expressões tão complexas quanto 10*3-(4+Const)/12 em instruções executáveis por um 
computador. Este processo, chamado análise de expressões ( expression parsing), é a 
espinha dorsal de todos os compiladores e interpretadores, e poucos são os programadores 
capazes de escrever um analisador de expressões. 

Não deveria ser assim. A análise de expressões é, na verdade, um processo 
muito direto e um problema muito similar a várias outras tarefas de programação. Sob 
certos aspectos, um analisador de expressões é muito mais simples do que parece, pois ele 
trabalha apenas com as regras da álgebra. Neste capítulo será apresentado um analisador 
recursivo decrescente (recursive descent parser) t bem como todas as rotinas de apoio que 
permitirão a resolução de expressões numéricas complexas. Todas estas rotinas serão 
colocadas num só arquivo, a ser usado quando necessário. Após dominar o uso de tal 
arquivo, você poderá modificá-lo e expandi-lo, amoldando-o às suas necessidades, 
tomando-se, você também, um “iluminado”. 


225 




224 Turbo Pascal Avançado 


EXPRESSÕES 


Apesar de expressões poderam ser formadas com qualquer tipo de informação, este 
capítulo se concentrará num só tipo: as expressões numéricas. Assumiremos que 
expressões numéricas podem conter os seguintes dados: 

- Números 

- Os operadores +, /, *, A e = 

- Parênteses 

- Variáveis 

O símbolo “ A ” indica expooenciação, como no BASIC, e o símbolo representa o 
operador de atribuição. São seguidas as regras normais de álgebra, com as quais você está 
familiarizado. Alguns exemplos de expressões são: 

10 -*’ 

(100-5)* 14/6 
a+b+c 
KT5 
< 2 = 10-6 

Os operadores seguem a ordem de precedência algébrica normal, ou seja: 

(mais alta) 

*/ 

+ - 

(mais baixa) = 

Operadores de igual precedência são resolvidos da esquerda para a direita. 

Nos exemplos deste capítulo foram adotadas algumas convenções. Todos os 
nomes de variável têm apenas uma letra, resultando, portanto, em 26 variáveis disponíveis. 
Todos os números são do tipo integer. Finalmente, pouca verificação de erros foi incluída 
nas rotinas, isto para tornar a lógica usada mais clara e ordenada. Naturalmente, qualquer 
dos aspectos citados acima pode ser facilmente modificado. 

Resolva a expressão 


10-2*3 
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0 resultado correto é 4. É fácil escrever um programa que resolva esta expressão 
específica, mas você deve estar imaginando um meio de criar um programa que resolva 
qualquer expressão dada. Num primeiro momento, pode ter lhe ocorrido algo como a 
rotina abaixo: 

2L"pega o primeiro operando 

while (operandos presentes) do 

begin 

op :—pega operador 
b:—pega segundo operando 

a:=a op b 

end; 

Esta rotina pega o primeiro e o segundo operandos, o operador entre eles e realiza a 
operação, repetindo tal processo até que não existam mais operandos presentes. 
Entretanto, a resposta desta rotina para a expressão 10-2*3 é 24 (8*3) e não 4 (a resposta 
correta), pois o procedimento ignora a precedência dos operadores. Não é possível 
resolver uma expressão automaticamente, da esquerda para a direita, pois uma 
multiplicação, por exemplo, deve ser resolvida antes de uma subtração. Tal programa pode 
parecer, à primeira vista, facilmente superável, mas ele só se toma mais complexo com a 
inclusão de parênteses, exponenciações, variáveis, chamadas de função etc. 

Existem vários métodos para resolver expressões deste tipo, mas nós só 
estudaremos um, o mais simples e mais comum (alguns métodos de construir analisadores 
utilizam tabelas que requerem quase outro programa para serem geradas. São os chamados 
analisadores controlados por tabela (table driven par sers). O método que examinaremos 
é chamado analisador recursivo descendente, e ao longo deste capítulo você entenderá 
como ele obteve este nome. 


DESMEMBRANDO UMA EXPRESSÃO 

Antes de desenvolver uma rotina para resolver uma expressão, você deve ser capaz de 
separar facilmente partes da expressão. Por exemplo, dada a expressão 

A*£-{W + 10) 

você deve obter os operandos. A, B, W e 10, os parênteses e os operadores - e +. É 
necessária, portanto, uma rotina que tome cada item da expressão individualmente. Tal 
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rotina deve também ignorar os espaços em branco e saber quando o final da expressão foi 
atingido. 

Cada item da expressão é um símbolo. Assim, a função que obtém os símbolos 
da expressão é chamada PegaJSimb. Uma seqüência de caracteres global é usada para 
conter a expressão. Em PegaJSimb, tal seqüência se chama prog. A variável prog é 
global, pois deve manter seu conteúdo inalterado entre cada chamada de PegaJSimb, além 
de permitir que outras funções a usem. O inteiro global t é usado como índice de prog, 
permitindo que PegaJSimb avance pela expressão, um símbolo de cada vez. PegaJSimb 
assume que prog termina com um cifrão (S). O “$” indicará o fim da expressão. 

E preciso, também, determinar que tipo de símbolo foi obtido. O analisador 
desenvolvido neste capítulo só utiliza três tipos de símbolo: VARIA VEL, NUMERO e 
DELIMITADOR, sendo DELIMITADOR usado tanto para operadores quanto para 
parênteses. Eis aqui, então, o procedimento PegaJSimb, com todas as suas variáveis 
globais, declarações e funções de apoio: 

t ype 

5trS0=strinqL80J ? 

T EI = (DELIMITADOFn, VARiAVEL,NUMERO; í 
var 

El emento, Proq : strS0; 

Tipo. El :T Ei; 

PosErro,T:inteqer? 
ftesul tado: real ; 

-Punct i on Letra (ch : char ) : bool ean ; 

C devolve TRUE se -Por uma. letra j 
begin 

Letra:=(UpCase(ch)>='A') and íUpCase(ch>v= ■' L '); 
endj C Letra 1 

■functi on Br anco \ ch: char ) : bool eani 

•C devolve TRUE se -for espaço, i AB ou CR j 

begin 

Branco: = ich=' 7 > or vch=chr (9i ; or vch=chr < i3 ) > í 
end; C Branco I 

-F unct i on Del i m (ch : char * Z booi ean ; 

{ devolve TRUE se for um dos deiimi ú açores 
b eg i n 

i f pos (ch, ■’ +—/ *7i = () $■* } then Bei i n: =t.rue 

e i se L-ie j i fr.: = í ai se : 

end? í Deli cri 3 

•functi on Digitoích:char) : bool ean; 

C devolve TRUE se -for um digito de v a 9 > 
begin 

Di gi to: = ( ch >= 7 0 -" > and (ch < = 7 9 7 ; ; 

-end; í Digito J 
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procedure Pega Simb; 
var 

temp:st r80; 
begin 

El emento: ? 5 í string vazio 3 

while(Branco(Prog[l]n do í: = |4i; i pui a os proximos espaços J 
i i Prog [ TI ='$ ? then El emento: =’% ' ; 
i -f pós ( Prog CT I , ' ■+--*/;•:• -= í.= ic-* then 
beqi n 

Tipo _ El : =DEL IMITADOR; 

Ei emento:=ProoC7J; í e' um operador ^ 

T :=1 + 1 ; 

end else it Letra(ProgLTI) then 
beq i n 

while (not DelimvProqífI )) do 
beqin 

Elemento:=concat \E1emento,ProgL73>; t constroi a variavel 3 
T: =7 +1 
end; 

Tipo El :=VARIAVEL? 
end else i-f Di g i to (Proa L 7 J > then 
beq i n 

while -(.not Del im (ProgL T J ) t do 
beqi n 

El emento: =concat (El emento, Proq C T j ) ; i constroi o numero 
7 : =7 +1 
end? 

íipo El:=NUMERO; 
end; 

end: C Pega Simb 3 

Antes que este procedimento seja usado é preciso fixar a variável global t em L Esta 
variável é usada como índice da seqüência prog, a qual contém a expressão a ser 
desmembrada. O primeiro passo do procedimento é verificar a presença do indicador $. 
Em seguida, os espaços em branco que porventura existam na frente da expressão são 
eliminados. Tais espaços podem ser usados para tomar a expressão mais legível, mas serão 
ignorados pelo procedimento. 

Uma vez descartados os espaços em branco, prog[t] deverá conter um número, 
uma variável, um operador ou um $ (caso não haja nenhuma expressão presente). Caso 
este primeiro caractere seja um operador, ele será passado como uma sequência de 
caracteres para a variável global elemento, e o tipo DELIMITADOR será colocado em 
Tipo_el. Se o caractere for uma letra, a rotina assumirá que ele é uma das variáveis, 
passando-o para elemento; Tipo_el terá como valor VARIAVEL. Se o caractere for um 
inteiro ele será passado para elemento com o tipo NUMERO. Finalmente, se o caractere 
não for nenhum dos acima citados, pode-se presumir que o final da expressão foi 
alcançado, e elemento será $. 
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Para manter esta rotina legível, muito da checagem de erros foi omitido, e 
algumas suposições foram feitas. Por exemplo, qualquer caractere não reconhecido será 
ignorado. Além disto, as variáveis podem ter nomes de qualquer tamanho, mas apenas a 
primeira letra é significativa. Estes e outros detalhes podem, porém, ser facilmente 
incluídos se necessário. Pega^Simb pode ser modificado ou expandido para trabalhar com 
seqüências de caracteres, números racionais, ou qualquer outra coisa. 

Para compreender melhor o funcionamento de PegaJSimb examine a lista de 
símbolos e tipos de símbolo obtidos com a seguinte expressão: A 4 - 100 - (#*C)/2. 

Símbolo Tipo de símbolo 

4 VARIÁVEL 

+ DELIMITADOR 

100 NUMERO 

DELIMITADOR 
( DELIMITADOR 

B VARIAVEL 

* DELIMITADOR 

C VARIAVEL 

) DELIMITADOR 

/ DELIMITADOR 

2 NUMERO 

5 Fim da Expressão 


ANÁLISE DE EXPRESSÕES 


Existem muitas maneiras de analisar e resolver uma expressão. No contexto deste capítulo, 
expressões são estruturas recursivas de dados, definidas em termos de si mesmas. Se 
restringirmos as expressões ao uso dos operadores -f e dos parênteses, qualquer 

expressão poderá ser definida pelas seguintes regras: 

expressão = > termo{ + termo] [—termo] 

termo = > fator[*fator][Jfator ] 

fator = > variável , número ou ( expressão ) 

onde qualquer parte pode ser nula. Os colchetes significam “opcionais” e as setas, 
“produz”. Estas são as chamadas “regras de produção” da expressão. Por exemplo, a 
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segunda regra é lida “termo produz fator multiplicado por fator, ou fator dividido por 
fator”. A ordem de precedência dos operadores está implícita no próprio modo de 
definição da expressão. 

A expressão 


10+5*5 

tem dois termos: 10 e 5*5. Ela tem, entretanto, três fatores, 10, 5 e 5. Estes fatores 
consistem em dois números e uma variável. Já a expressão 

14*(7-0 

consiste em dois termos, 14 e (7 -C) - um número e uma expressão entre parênteses. A 
expressão entre parênteses possui um número e uma variável. 

Este processo forma o núcleo de um analisador recursivo descendente, que é, 
basicamente, um grupo de rotinas mutuamente recursivas trabalhando encadeadas. A cada 
passo, o analisador pode realizar as operações especificadas na seqüência algébrica 
correta. Examine melhor como isto funciona, seguindo a análise e resolução da expressão 
9/3-{ 100+56): 

1. Tome o primeiro termo: 9/3. 

2. Tome cada fator do primeiro termo e divida os inteiros. O valor obtido é 3. 

3. Tome o segundo termo: (100+56). Aqui, a segunda expressão deve ser 
analisada recursivamente. 

4. Some os fatores. O resultado é 156. 

5. Saindo da chamada recursiva, subtraia 156 de 3, chegando ao resultado final, 
-153. 


Neste ponto, você pode estar um pouco confuso, mas não se preocupe. Este é um conceito 
bastante complexo, que requer algum tempo para ser entendido. Existem dois aspectos 
importantes na visão recursiva de expressões aqui apresentadas. Primeiro, a ordem de 
precedência das operações está implícita nas próprias regras de produção. Segundo, este 
método de analisar e resolver uma expressão é muito similar ao método usado para fazer o 
mesmo sem um computador. 
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UM ANALISADOR SIMPLES 


Dois analisadores serão desenvolvidos neste capítulo. O primeiro analisa e resolve apenas 
expressões que não contenham variáveis, sendo esta a forma mais simples de um 
analisador. O segundo analisador inclui 26 variáveis possíveis (de A a Z), permitindo 
também que sejam atribuídos valores a cada variável usada. 

Abaixo, a listagem completa da versão mais simples do analisador recursivo 
decrescente, para expressões formadas apenas por números inteiros. Ele utiliza os mesmos 
dados globais do procedimento PegaJSimb. 

C ******** ********* Analisador de Expressões *******-**♦*** ***** J 

procedure NivelZivar Resul tado: real); forward; 
procedure Níve 13(var Resultatíolreal); forwardj 
procedure Nivel4 (var Resui tado: real ) ; -forwardj 
proceoure Nivel 5ivar Resuitado:real)j forwardj 
procedure Nivei6(var Resuitado:real)? forwardj 
procedure Pr 1 nu 11 va ívar Resuitado:real> ; forwardj 

procedure Pega Exp(var Resuit ado :real >? 
begi n 

Pega Simb j 

if 1ength (El emento )<>0 then 
Nivel2(Resuit ado ) 
el se 

Erro(3)? 

endj i Pega Exp 3 

procedure Nivel2j 
var 

Op:char; 

Guarda:real; 

beg i n 

Nivel 3(Resuitado); 

Op: =E1 ementoC1 D; 

whi 1 e ( (0p= 5 ‘ + ' ) or (Op' ) ) do 
beqi n 

Pega Simbj 
Nivel3(Guarda); 

Arit (üp, Resultado, Guarda) ; 

Op: =E1 ementoL1 J j 
end; 

endj í Nivel2 j 

procedure Nivel3j 
var 

□p:char; 

Guarda:real; 
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begi n 

Ni vel4(Result ado ); 

Op: =E1 ementoL13 ; 

whi i e < (Op=' *' ) or (0p=' / ' ) ) do 
begi n 

Pega_Simb; 

Nivel4(Guarda); 

Arit(Op,Resultado,Guarda); 

Op: =E1 ement□L13; 
end ? 

end; C Nivel3 D 

procedure Nível 4; 
var 

Guarda:real; 
begi n 

Ni ve!5(Resul tado) ? 
i 4 El ementoL1 1 = ' then 

begi n 

Pega Simb; 

Nivel4(Guarda)í 
Ar i t (■' , Resul tado. Guarda) ? 

end; 

end; í Nivel 4 } 

procedure Nivel5; 
var 

□p:char; 

beg i n 

Op: = •' 7 ; 

i -f ( (Tipo El =DELIMITADOR) and (( El ementoL 1 3= '+ f ) or (EI ementoL 1 3 =' - ' > ) ) 

then 

begi n 

Op: =E1 ementoL1J; 

Pega Simb; 
end; 

Nivel6(Resultado); 

i-f 0p='-' then Resultado:=-Resultado? 
end? v Nível 5 3 

procedure Nivel6? 
begi n 

i-f (El ementoL 1 3 = 7 ( ' ) and (T i po El =DEL IMITADOR) then 
begi n 

Pega Simb; 

Nivel2(Resultado) ; 

i-f El ementoL13<>') 7 then Erro(2); í -falta parenteses 3 
PegaSimb; 
end 

else Primi ti va (Resultado); 
end; £ Nivel6 > 

procedure Primitiva? 
begi n 

i-f Ti po_El =NUMERO then vai ( El emento, Resul tado, PosErro) 
el se Erro(1); 

PegaSimb; 
end? C Primitiva 3 
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Este analisador aceita os operadores -f, -, *, /, a exponenciação ( A ), inteiros 
negativos e parênteses. Ele possui seis níveis, além da função Primitiva, que produz o 
valor de um número inteiro. O comando forward é necessário porque algumas destas 
rotinas são mutuamente recursivas, sendo, portanto, impossível definir todos os 
procedimentos antes de chamá-las. 

Ao programa anterior devem ser acrescentadas algumas rotinas especiais: Erro, 
que imprime mensagens de erro, e Pot e Arit, que realizam várias operações aritméticas. 
Estes subprogramas são os seguintes: 


Procedure SerrorCi linteger) ; -Cprint error messages} 
beg i n 

case i of 

. 1: WriteLn('Syntax Error 1 ); 

2: Writeln('Unbalanced Parentheses' ) ; 

3: W r i t e l n (* N o Expression Present ') ; 
end; 

end; {Serror} 

function Pwr(a,b:rea l) :real ; 

■Cra i se a to b power> 
var 

t: integer; 
tempireal; 
beg i n 

i f a = 0 t hen Pwr:=1 else 
beg i n 

t emp : =a ; 

for t:=trunc(b) downto 2 do a:=a*temp; 

Pwr:=a; 
end ; 

end; <Pw r> 

procedure ArithCop:char; var resuLt / operand:real); 

{perform arithmetic functions> 
b e g i n 

case op of 

:result:=result+operand; 

1 -' iresult: = resuLt-operand; 

:result:=resuLt*operand; 

1 / 1 :result: = resuit/operand; 

’* * :result: = Pwr(result,operand); 

end; 

end; C A rit h > 

Como já foi visto, o procedimento global PegajSimb busca, na expressão, o 
próximo símbolo e seu tipo. A seqüência de caracteres prog contém a expressão. A seguir 
está transcrito todo o analisador, suas rotinas de apoio, e um programa simples de 
demonstração. 
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program analisador; (Analisador para numeros reais e operadores, 

sem variaveis) 


type 

str80=string[80]; 

Nome_Simb ss ( DELIMITADOR , VARIAVEL, NUMERO); 

var 

simbo1o,exp:str80; 

Tipo_Simb:Nome_Simb; 
codigo,t:inteqer; 
resul tadosreal ; 

function Letra(car:char); boo1ean; 

(TRUE se car e' uma letra do alfabeto) 

beg in 

Letra : = (UpCase(car)>= A' ) and (UpCase(car)< = 2 ) ; 
end; (Letra} 

function Branco(car:char) :boolean; 

(TRUE se return,espaço ou tab) 

begin 

Branco: = (car=' ') or (car=chr(9) ) or (car=cnr (13) ); 

end; (Branco) 

function Delim(car:char) :boo1ean ; 

(TRUE se for um DELIMITADOR) 

begin 

if pos(car,' +-/()$')< >0 then Delim;=TRUE 
else Delim:=FALSE; 
end; (Delim) 

function Digito(car:char) :boalean; 

(TRUE se for um digito entre O e 9) 

begin 

Digito:=(car>='0') and (car<=9'); 
end; (Digito) 

procedure Ana 1isa_Simb; 
var 

temp:s tr80; 
begin 

simbolo:=‘ ; (sequencia de caracteres nula) 

while(Branco(exp[t])) do t:=t+l; (retira os espaços antes da expressão) 
if expC t]='then simbo1 o: = '%' ; 
if posí exp[ t] , ' +-*/'■'= ( ) * ) <>0 then 
begin 

Tipo_Simb:=DÊLIMITADOR; 
simboio:=expCt] ; (e' um operador) 

t: = t +1 ; 

end else if Letra(exp(t]) then 
begin 

while(not Delim(exp[t] ) ) do 
begin 



234 


Turbo Pascal Avançado 


simbolo:=concat(simbolo t exp[ t]) ; {monta 
t: =t + l; 

end; 

Tipo_Simb:=VARIAVEL ; 

end 

else if Digi to(exp[ t ] ) then 
begm 

while(not Delim(exptt])) do 
begin 

simbo1 o í =conc at(simbolo,exp[t]); (mon ta 
t:=t+l; 

T i po _S i<nb: =NUfiERO ; 

end ; 

end ; 

end; {Ana 1isa_Simb} 

procedure Erro(i:integer); (imprime mensagens de erro) 
begin 

case i of 

1: WriteLn('Erro de Sintaxe); 

2: WriteLn( Erro na Colocacao de Parenteses') 
3: WriteLnC Expressão Nao Encontrada'); 

end ; 

end; (Erro) 

function Pot(a,b:rea1 ):rea 1 ; 

(eleva 'a' a *b’) 
var 

t: integer; 
temp:rea1; 
begin 

if b=0 then Pot:=l else 
begin 

temp:=a; 

for t:=trunc(b) aowntü 2 do a:-a»temp; 

Pot:-a ; 

end ; 

end; (Pot} 

procedure Ar 1 1(op:char; var resui t ado , operando:rea1 ) ; 

(realiza operacoes aritméticas) 

begin 

case op of 

' + ' : resu 1 tado : =resu Itadot-o per ando; 

' — ' : resul tado : =resu 1 tado-o per and o ; 

* ' : resu 1 tado : =resu 1 tàdotoperanúo; 

' / ' : resul tado : =resu 1 tado/operando; 

’ ~ : resu 1 tado : =Pot ( resu 1 tado , operando ) ; 

end ; 

end; (Arit) 

(Analisador de Expressões, com vanaveis e atribuicao) 
procedure Nivel2(var resu1tado:rea1); forward ; 
procedure Nivel3(var resu1tado: rea 1 ); forward; 
procedure Nivel4(var resu1tado:rea1 ); forward; 
procedure Nivel5(var resu1tado:rea1 ); forward; 
procedure Nivel6(var resu1tado:rea1);forward ; 
procedure Primitivaivar resu1tado:rea1);forward; 


simbolo) 


numero} 
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procedure Verifica_Simb(var resultadotreal) ; 
begin 

Ana 1isa_Simb; 

ii length(símbolo) <> 1 then 

Nivel2(resu1 tado ) 
else 

Erro(3); 

end; (Verifica_Simb} 

procedure Nivel2; 
var 

oo:char; 
man tem:rea1 ; 
begin 

Nivel3(resultado ) ; 
op:=si(nbolo[i] ; 

while((op='+') or (op=' - ' ) ) do 
begin 

Analisa_Simb; 

Nivel3( mantem ); 

arit(op,resultado, mantem ); 

op:=simboloC1] 

end ; 

end; (Nivel2) 

procedure Nivel3; 
var 

op:c har; 
mantem :real; 
begin 

Nivel4(resultado ) ; 
op:=simbolo[1]; 

while ((op=' I' ) or (op-'/‘ ) ) do 
begin 

Analisa_Simb; 

Nive14(mantem) ; 

arit(op,resultado, mantem ); 

op:=simbolo[l]; 

end ; 

end; {Nive13) 

procedure Nivel4; 
var 

man tem:rea1 ; 
begin 

Nivel5(resultado) ; 

if simbolo[13='~* then 

begin 

Analisa_Simb; 

Nive14( mantem ); 

arit('~' ,resu1tado,man tem ) ;(exponenci ac ao} 

end ; 

end; (Nivel4) 

procedure Nive15; 
var 


op:char; 
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beg in 

□p:=' ; 

if ( (Tipo_Simb=DELIMITADOR) and ( (simbo1o[1]='+' ) or (simbo1o[1]='-'))) 
then 

begin (sinal negativo ou positivo) 
op:=simboloCl]; 

Analisa_Simb; 

end ; 

Ni ve 1ò(resu1 tado ) ; 

if op= ‘ - ' then resultada:=-resultado; 
end; (NivelS) 

procedure Nivelò; 
begin 

if (simboloC1]='(' ) and (Tipo_Simb=DELIMITADOR) then 
begin (subexpressão entre parenteses) 

Analisa_Simb; 

Nivel2(resultado); 

if simboloC13<>')' then Erro(2); (erro na colocacao de parenteses) 
Anal isa__Simb; 

end 

else Primiti va (resu1tado); 
end ; (Nivelò) 

procedure Primitiva; 
begin 

if Tipo_Simb=NUMERG then 

vai(simbolo,resultado,codigo) 
else 

Erro(1); 

Ana 1isa_Simb; 
end; (Primitiva) 

begin (principal} 
repeat 

t:=l; 

Write('Escreva a expressão: '); 

ReadLn( ex p) ; 
exp:=concat(exp, ' S ’ ) ; 

Veri-fica_Simb(resultado) ; 

WriteLn(resultado); 
until exp='fim$'; 

end . 

Para entender exatamente como o analisador trabalha, usaremos a seguinte 
expressão (supondo-a contida em prog): 


10 - 3*2 

Quando PegaJExp (rotina de entrada do analisador) é chamada, ela lê o primeiro símbolo 
da expressão e, se não houver símbolo algum, a mensagem falta expressão é impressa. Se 
um símbolo estiver presente, então a rotina Nivei2 é chamada (Niveil será acrescentada 
posterionnente, quando o operador de atribuição for necessário). 
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Elemento agora contém o numero 10, Nivel2 chama Nivel3, que chama 
NiveM, que por sua vez chama Nivel5. N!vel5 checa se o símbolo é um ou um ‘V’, 
o que não é o caso, e chama Niveló. Niveló pode tanto chamar recursivamente Nivel2 (no 
caso de uma expressão entre parênteses), como chamar Primitiva, para achar o valor do 
inteiro. Quando Primitiva é, finalmente, executada, o valor 10 é colocado em resultado, 
e PegajSimb lê o próximo símbolo. As funções começam a voltar cadeia acima. Como o 
símbolo agora é um o processo vai até Nivel2. 

O próximo passo é muito importante. Como o símbolo é um ele é guardado 
e PegajSimb lê um novo símbolo, 3; a descida da corrente recomeça. Primitiva é 
executada, o inteiro 3 é colocado em resultado e um novo símbolo, *, é lido. Isto causa 
um retomo ao Nivel3, onde o ultimo símbolo, 2, é lido. Neste momento, a primeira 
operação é realizada, com a multiplicação de 2 por 3. O resultado é enviado ao Nivel2, 
onde ocorre a subtração, produzindo 4, o resultado final. 

Apesar da aparente complicação, o processo funcionará corretamente com 
qualquer outra expressão. 

Este analisador pode ser usado como uma calculadora simples, num banco de 
dados ou numa planilha. Mas antes de poder ser usado numa linguagem ou numa 
calculadora mais sofisticada, o analisador deve ser capaz de manipular variáveis, assunto 
que veremos a seguir. 


A MANIPULAÇÃO DE VARIÁVEIS 

Todas as linguagens, além de muitas calculadoras e planilhas eletrônicas usam variáveis 
para guardar valores que serão necessários em algum momento posterior. Antes que o 
analisador visto na seção anterior possa ser usado para tais propósitos, ele deve então ser 
expandido para incluir variáveis. Como o analisador está restrito a números inteiros, as 
variáveis devem ter valores inteiros. O analisador reconhecerá como variáveis apenas as 
letras de A a Z (mas isto pode ser facilmente modificado). Cada variável usará um 
endereço numa matriz de 26 elementos. Assim, a seguinte declaração deve ser 
acrescentada ao programa: 


vars : array C0..25D o-f real; i 26 variaveis > 


Antes de serem usadas, estas variáveis devem ser inicializadas em 0. 
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É necessária, também, uma rotina que verifique o valor de cada variável. Como 
os nomes das variáveis sáo as letras de A a Z, a matriz vars pode ser indexada com base 
nestes nomes. Aqui está a função Acha_Var. 

■function Acha Var (S: StrS#) : real « 
var 

t:integer; 
beg i n 

Acha .Var : =varsLOrdíupcaseísCl J) > —ord ( ' A ? ; j : 
end; C Acha Var ; 

Do modo como está escrita, esta função aceita nomes de variáveis mais longos que apenas 
uma letra. Porém, só a primeira letra será significativa. Isto pode ser facilmente 
modificado se necessário. 

O procedimento Primitiva também deve ser modificado, para admitir tanto 
números quanto variáveis: 

procedure Primitiva: 
begi n 

case I i po Ei o i 

NüiiERü : vai íEi emento, Resul tado, PosErro) ; 

VAR1AVLL : .Resujt ado: =Acha Var(Eiemento>; 
ei se trrDil;; 

end: 

Peqa Simfc; 
end; i Primi tivõ j 

Neste ponto, o analisador já estaria pronto para lidar corretamente com 
variáveis. Não há, porém, modo de atribuir valores às variáveis. É sempre possível fazer 
isto fora do analisador, mas como o “=” pode ser também um operador de atribuição, 
pode-se tomar a atribuição de valores às variáveis uma parte de analisador. Uma das 
maneiras de fazer isto é adicionar ao analisador um Nivell: 


procedure Nivel1; 
var 

Guarda: real; 

Temp:T_E1; 

Lugar: integer; 

El emTemp:str80; 

begi n 

if Tipo_El=VARIAVEL then 
begi n 

El emTemp: =E1 emento; 
temp:=Tipo_El? 

Lugar : =Ord (üpcase (El eroentoQ] ) > —ord ( “ A T ) ; 
Pega_Simb; 

íf El ementoC 1 1< >•’ =~ then 
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begin 

Devol ve; 

Ele»ento: =E1 emTemp; 

Ti po_El : =temp; 

Ni vel2(Resultado) ; 
end el se 
begin 

Pega_Simb; 

Nivel2(Resultado) ; 
varsCLugar3:=Resul tado ; 
end; 
end 

else Nivel2(Resultado) ; 
end; í Nivel1 > 

Quando uma variável for o primeiro símbolo de uma expressão, ela tanto pode ser o alvo 
de uma atribuição (como em A =2?* 10) como simplesmente parte da expressão (como em 
A-123.23). Para que Nivel 1 possa dar seu próximo passo, ele deve dar uma olhada à 
frente . Olhar à frente significa guardar o símbolo atual e obter o próximo para checar sua 
natureza. Assim, se o símbolo for “=”, fica-se sabendo que uma atribuição está em curso, 
e as rotinas apropriadas são executadas. Se o símbolo não for um “=”, ele deve, então, 
ser devolvido à expressão, e o símbolo anterior deve ser recuperado. Isto é feito pelo 
procedimento Devolve, cuja única função é subtrair 1 do índice t. Olhar à frente é um 
processo que consome tempo, só devendo ser realizado se for absolutamente necessário. 

Aqui está, então, o analisador completo, com todas as rotinas de apoio: 

proqraíTi an a 1 isador2; CAnalisador corri variaveis-y 
type 

=trB"p=string L SO ]; 

Ktome _3 i mb= (EB- 1 MITADQR, VARIAVEl., M^ERO) ; 

var 

simboi o, e>í o: str80; 

T i po_Simb: Nome_Simb; 
codiço, t: integer; 
resultado:real; 

vars : array í CL.25J ot real; C2ò vanaveis; 


■function Letra(car:char) sboolean; 

•CTRUE se car e' uma letra do alfabeto* 


beqin 

Letra: = (UpCase(car)>='A' ) and (UpCase(carK='Z' ) ; 
end; -CLetra* 

-function Branco (car: c har): boolean; 

•CTREE se retum, espaço ou tab> 


beqin _ 

Branco:=(car=' ') or (car=chr(9)) or (car=chr( lo)); 
end; CBranco* 
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function Delim(car:char):boolean; 

CTRUE se for um DELIMITADOR} 

begin 

if pos(car, +— /t7u"-( )$' ><>0 tben Delim:=TRUE 
else Delirn:=FALSE; 
end; CDelim} 

function Digito<car:char) : boolean; 

•CTRLE se for um digito entre 0 s 9} 

begin 

Digi to: = (car >=' 0' ) and (car<=' 9' ) 
end: -C Digito 3- 

procedure Ana1isa_Simb;' 
var 

tsmDSStrSOj 


begin 

simbolo: =' ' ; Csequencia de caracteres nula} 

while(Branca(expCtl)) do t:=t+l; Cretira os espaços antes da expressão} 
if expCt!l='$' then simboloí='$'; 
if posíexpCt!,' -t—*/"=()' )<>0 then 
begin 

T i po_Simb: =DEL IMIT ADGR ; 

simbo1o:=exp C13; Ce' um operador} 

t:-t+l; 

end else if Letra(expCt3) then 
begin 

whileínot Delim(expCt3)) do 
begin 

simboio:=ooncat(simbcÍQ,,expLtj); Cmcnta o simboio} 

end; 

Ti po_Simb; =VPRIfWEL : 

end 

else if DigitoíexpCtll) then 
begin 

whileínot Delim<expCt2)) do 
begin 

simbolo:=concat(simbolo,expLt3); ímcnta o numero} 
t:=t+l; 

Ti po_Simb: =MJ w EHj ; 

v«nd; 

and ; 

and; CPnaiisa_8imb} 


procedure Devolve; ídevolve os simbo los nao usados} 
begin 

t:=t-lenqth(simbolo); 
end; CDevolve} 

procedure Erro(i: in teger ); Cimprime mensagens de erro} 
begin 

case i of 

1: WriteLní'Erro de Sintaxe'); 

2: WriteLní'Erro na Colocacao de Parenteses'); 
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3: WriteLn<' Expressão Nao Encon trada' ); 

end; 

end; CErro> 

-fune tien Rot (a, b: rea 1) : rea 1; 

•Celeva 'a' a 'b'} 
var 

t: integer; 
temp:real; 
begin 

i i b=fl> then Rot : = 1 eJ.se 
begin 

temD:=a; 

■for ts=trunc(b) dowiLo 2 do a:--a* temo: 
Rot:=a: 

end: 

snd: CPotl 

*unc tion Az haVar(s:strQO):reai: 


t:in teqer; 
begin 

Ac haVar: ^varsCürd (Upcasa (sC13>) -Grd ( ' A' ) ] ; 
end; C Ac haVar) 


procedure Ar it (op: char; var rea.ii tade, operai do: rea. 1) ; 

Crealiza operacces aritméticas] 

begin 

case op o-f 

' +' : resu 1 tado: -resul tador+operando; 

' -' : resu I tado: --resu 1 tado-operando: 

' t' :resultado:~resul tcdç*ooerandc : 

' /" : r-esu 1 tado: =resu i tado/operando; 

' "•' : resul tado: =R'Gt C resul tado, operando); 

end: 

erid; CArit/ 

C Analisador de Expressões,com variaveis e atribuicao > 
□rocebure Nivel 1 (var resu 1 tado: rea 1) ; -fcrward; 

□roc «dure Ni ve 12 (var resu 1 tado: rea 1) ; -f orward; 
□rccedure Nivel3(var resu 1 tado: rea 1) : forward: 
procedure Ni ve 14 (var resu 1 taco: rea 1) ; -f orward; 
□rccedure Ni ve 13 í /ar resu 1 tado: rea 1) ; t orward: 
□rccedure Ni ve 16 (var resu 1 tado: rea 1) : i orward: 
□rccedure F rimi ti va í var resu 1 tado: real ); f orward; 


□rccedure Ver i-f ica _Simb (var resul tado: real); 
begin 

Analisa_3imb; 

i-f lençthísimbolo) <> 1 then 
Nivel1Cresultado) 
else 

Erro(3); 

end: CVeri-fica_Simby 
□rccedure Nivel 1; 
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mantem: real; 
temp: Nome_Simb; 
posicao: inteqer; 

Simb_Temp: strSO; 

hegin 

if TiDO_Simb=VAF:IA'vEL theri 
beqin 

■C guarda o símbolo anterior} 

Simb_Temp:=simbolo: 
temp: =T i poJBimo; 

posicao: =Ord (LíoCase (simboi ol 1 j ; i-Ord (' A' ) s 
A“ialisa__Simb: Cverifica se ha - para atrihuicao} 
if simboloCl }<>'==' then , 

begin 

Devolve; í devolve o simboi o > 

■C repõe símbolo anterior} 
simbo 1 o i =Simb_T emp; 

T i po_ Simb: =temp; 

Nive! 2 (resul tado); 
end else 

begin íha atribuicao} 

Ana 1 isa_Simb; 

Nivel 2 í resul tado); 

va rs C posicao 1 : =resul tado; 

ends 

end Cif} 

e i se Ni ve 12 í resu 1 tado); 
erid; C Ni ve 11 } 


opíchar; 
mantem: real; 


Ni ve 13 í resul tado); 
op:=simboloL13; 

whi1e(<op='+') or <op='-')) do 
beqin 

Analisa_5imb; 

Ni ve 13 í man tem.;; 

ari t < op, resu 1 tado 5 man tem >; 

op:=simboloC13 


end: 

end; -C Ni ve 12} 

procedure Ni ve13; 
var • 

ODScrtar; 


man tem: rcra ± ; 


Nivel 4 (resul tado >: 

C3p:=sinibolo£ 1II; 

while <(□□='#') or <od='/">) do 
begin 

Ni ve 14 (man tem) ’ 

ar i t (op, resu. 1 tado * man tem); 

•do : “-simbo 1 o C í 2 z 
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end; 

end; -C Ni ve 130 

procedure Ni vel 4; 
var 

mantem:real; 
begin 

Ni ve? 15 (resul tacio): 

i f simbo 1 □ í I D ~' •' then 

begin 

Analisa_Simb: 

Nível 4 ( mar» tem); 

arití ' . resultado,mantem) ;-íexponenciacao> 

end; 

end? CNive143 

prccedu re Ni ve 15 * 
var 

ODíchar; 

begin 

op: = ' ' 

i-f ((TÍDQ_ Simb^DELIMITADOR) and ((simboloC 13=' + ') or (simboloC 1 D=' - J ))) 
then 

begin {sinal negativo ou positivo} 
cpr=simboloC13; 

Anal isa_Simb; 

end; 

Ni ve 16 (resu 1 tado); 

i-f op='-' then resultado: =—resultado; 
end; C. Ni vel 5} 

procedu.re Nivelé?; 
begin 

i-f (simboloC13=' í' ) and (Tioo._Simb=DELIMITADOR) then 

begin -Csubex pressão entre pa.renteses 3 
Ana 1 isa Simb; 

Nive12(resu1tado); 

i-f simboloC 1 30' ) ' then Erroí2); Cerre na coiozacao de panenteses} 
Anal isa^Sirnb; 

end 

e 1 se Primi ti va (resul tado); 
end; CNive16> 

p roced u.re Pr imi t i va.; 
beqin 

i-f Tioo_Simb=i\LJMEKO then 

vai i símbolo,resultadG.codiqo) 
else i-f Tipo__Simb=WARIA'vEL then 
resul tado: =AchaVar (sirnbolo) 

else 

Erro(1); 

Analisa_Simb; 
end; CPrimitiva3 

begin -C principal > 

-for t:^I> to 25 do varsCtl :=0; -Ciniciaiiza variaveis} 
repeat 


*143 


t:=l; 

Wr i te '('Escreva a expressão: '); 
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ReadLn(exp); 
exp:=cancat(exp,); 
Veri-fica_Simb( resultado); 
Wr i teLn (resu 1 tado): 
u.ntil exp=' -fim*' ; 

and. 


Como analisador completo, agora você pode introduzir expressões como 

A =10/4 
A-B 

C=A*(F- 21) 

e elas serão avaliadas apropriadamente. 


A SINTAXE NUM ANALISADOR RECURSIVO DECRESCENTE 


Na análise de expressões, um erro de sintaxe é uma situação em que a expressão 
ínicializada não se adapta às regras do analisador. Muitas vezes, o erro de sintaxe é um 
erro humano, geralmente um erro de digitação. Por exemplo, as seguintes expressões não 
serão analisadas corretamente pelos analisadores vistos neste capítulo: 

10**8 
( 10 - 5 )* 9 ) 

/8 

A primeira expressão tem dois operadores em seqüência, a segunda um 
parênteses a mais e a terceira um sinal de divisão no início da expressão. Como erros de 
sintaxe podem confundir o analisador e gerar resultados errôneos, é importante e 
necessário resguardar-se contra eles. 

No analisador visto, o procedimento Erro é chamado em certas situações. Ao 
contrário do que ocorre em vários outros analisadores, o método recursivo decrescente 
torna a verificação de erros de sintaxe muito fácil, pois eles em geral ocorrem em 
Primitiva, Àcha_Var ou Nivetó, onde os parênteses são checados. A verificação de 
erros, do modo como está, tem apenas um inconveniente: o analisador não pára ao 
encontrar um erro. Isto pode causar a impressão de múltiplas mensagens de erro na tela. 
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Para incluir uma recuperação completa do erro, você deve acrescentar ao 
programa uma variável global que seja checada a cada nível. A variável seria inicialmente 
FALSE, tomando-se TRUE quando Erro fosse chamado, forçando o analisador a 
abandonar uma função por vez. 

O único problema do programa ser mantido como está seria a geração de 
múltiplas mensagens de erro. Isto pode até ser útil, pois todos os erros de uma expressão 
serão captados ao mesmo tempo. Mas você, certamente, deve expandir a verificação de 
erros antes de usar o analisador em programas comerciais. 




Uma poderosa extensão, disponível para ser usada junto com o Turbo Pascal é o Turbo 
Pascal Database Toolbox. Este pacote contém rotinas que permitem operações com bancos 
de dados em B-tree , ordenação de arquivos de dados e instalação de programas no 
terminal do usuário final. Estas rotinas são o Turbo Access, o TurboSort e o GINST, 
respectivamente. Este capitulo examina cada uma delas, dando especial ênfase às rotinas 
de banco de dados. 


O TURBO ACCESS 


As rotinas do Turbo Acess criam uma estrutura de arquivos em B-tree. A B-tree , 
inventada por R. Bayer, difere da árvore binária comum por permitir que cada nó-raiz 
possua mais de dois ramos, como mostra a Figura 10-1. A organização da B-tree 
possibilita um rápido acesso a arquivos de disco. A implementação de B-trees é uma tarefa 
bastante árdua, mas você não precisa saber exatamente como elas funcionam para utilizar 
as rotinas do Toolbox - a Borland já fez todo o trabalho pesado para você. 
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Figura 10-1 Um exemplo de B-tree . 


ARQUIVOS NECESSÁRIOS PARA AS ROTINAS DO TURBO ACCESS 


Para que seja possível usar as rotinas do Turbo Access, os seguintes arquivos 
devem estar presentes: 


Arquivo Função 


ACCESS.BOX 
ADDKEY.BOX 
DELKEY.BOX 
GETKEY.BOX 


Inicialização e manutenção básica de arquivos de dados e índices. 
Acrescenta chaves e arquivos de índice. 

Apaga chaves de arquivos de índice. 

Encontra chaves. 


Note que o Database Toolbox vem com duas versões das rotinas básicas de inicialização e 
manutenção de banco de dados, uma para a versão 2 do Turbo Pascal e outra para a versão 
3. Elas se chamam ACCESS2.BOX e ACCESS3.BOX, respectivamente. Você deve 
criar, com o arquivo apropriado, um terceiro arquivo chamado ACCESS.BOX, de modo a 
possuir, neste arquivo, as rotinas conetas para sua versão do Turbo Pascal. Daqui em 
diante, este capítulo pressupõe que as rotinas básicas de banco de dados são encontradas 
no arquivo ACCESS.BOX. 





248 Turbo Pascal Avançado 


Além destes arquivos, você precisará do programa SETCONST.PAS, também 
fornecido pelo Toolbox, para calcular algumas constantes necessárias às rotinas de B-tree . 


ARQUIVOS DE DADOS E ARQUIVOS-ÍNDICES 

No sistema Turbo Access, um arquivo de dados (data file) é onde são armazenados os 
registros que contêm a informação que você deseja manipular. Cada arquivo criado via 
Turbo Access pode conter até 65.536 registros. Entretanto, o primeiro registro é reservado 
para uso do Turbo Access, reduzindo o número máximo de registros disponíveis a 65.535. 
Cada registro pode conter até 65.535 bytes, mas não se recomenda o uso de registros tão 
grandes. O tamanho mínimo de um registro é 8 bytes. As variáveis que representam os 
arquivos de dados no programa devem ser declaradas do tipo DataFile, definido por 
ACCESS.BOX. 

Um arquivo-índice ( index file) serve para armazenar uma chave (key) que 
identifica um registro de um arquivo de dados, ao lado do número deste registro no 
arquivo de dados. Cada arquivo-índice pode conter até 65.355 chaves. O arquivo-índice 
permite uma rápida localização de qualquer registro no arquivo de dados associado. É 
importante saber que no Turbo Access todas as chaves têm de ser seqüências de caracteres 
( strings ). As variáveis que representam os arquivos-índices no programa devem ser 
declaradas do tipo IndexFile. 


AS CONSTANTES DO MÉTODO B-TREE 

Seis constantes especiais devem ser declaradas em qualquer programa que use o sistema 
Turbo Access. Estas constantes especificam parâmetros como altura da árvore e número de 
íamos ligados a cada n<5. Estas constantes são: 

- MaxDataRecSize 

- MaxKeyLen 
-PageSize 

- Order 

- PageStackSize 

- MaxHeight 


Os valores atribuídos a estas constantes são calculados idealmente pelo 
programa SETCONST.PAS. Para usá-lo, você deve fornecer o tamanho do registro que 
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estará usando, bem como o tamanho da chave. Usaremos o SETCONST.PAS mais 
adiante neste capítulo. 


NOMES DE VARIÁVEIS RESERVADOS E CÓDIGOS DE ERRO 

Turbo Access usa variáveis globais que começam com as letras “TA”. Você pode decla¬ 
rar variáveis cujos nomes começam com “TA”, mas evite fazê-lo; isto pode ocasionar 
erros de compilação por duplicação de definições. Se um erro de E/S acontecer quando 
você estiver usando rotinas do Turbo Access, um dos códigos de erro da Tabela 10-1 
deve aparecer. 

Tabela 10-1 Códigos de erro de E/S do Turbo Access 


Código Significado 

1 Registro de comprimento não previsto. 

2 Arquivo inexistente. 

3 Diretório lotado. 

4 Arquivo não está aberto. 

5 Arquivo não está aberto para entrada ( input). 

6 Arquivo não está aberto para saída {output). 

7 EOF prematuro. 

8 Gravação mal sucedida. 

9 Formato numérico errado. 

10 EOF prematuro. 

11 Tamanho do arquivo excede a 65.535 registros. 

12 EOF prematuro. 

13 Gravação mal sucedida. 

14 Tentativa de busca (. seek ) além do EOF. 

15 Arquivo não foi aberto. 

16 Operação ilegal. 

17 Ilegal em modo direto. 

18 Uso ilegal de assign com arquivo predefinido. 

144 Registro de comprimento não previsto. 

145 Tentativa de busca {seek) além do EOF. 

153 EOF prematuro. 

240 Gravação mal sucediaa. 

243 Excesso de arquivos abertos. 
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ROTINAS DO TURBO ACCESS 


Os vintè procedimentos e funções que formam o sistema Turbo Access estão-resumidos na 
Tabela 10-2. Nesta seção, discutiremos brevemente cada uma delas. Ao usar estas rotinas, 
você precisará também de uma variável global de nome OK, definida por ACCESS.BOX, 
para determinar o sucesso ou insucesso de várias destas rotinas. 

Tabela 10-2 Resumo dos procedimentos e funções do Turbo Access 


Nome 


Uso 


procedure Addkey 
procedure AddRec 
procedure ClearKey 
procedure CloseFile 
procedure Closelndex 
procedure DeleteKey 
procedure DeleteRec 
funcrion FileLen 
procedure FindKey 
procedure GetRec 
procedure Initlndex 
procedure MakeFile 
procedure Makelndex 
procedure NextKey 

procedure OpenFile 
procedure Openlndex 
procedure PrevKey 

procedure PutRec 
procedure SearchKey 


fimcüon UsedRecs 


Acrescenta uma chave a um arquivo-índice. 

Acrescenta um registro a um arquivo de dados. 

Posiciona o indicador de índice para o topo do arquivo-índice. 
Fecha um arquivo de dados. 

Fecha um arquivo-índice. 

Retira uma chave de um arquivo-índice. 

Retira um registro de um arquivo de dados. 

Retoma o número de registros de um arquivo de dados. 
Retoma o número do registro associado a uma chave dada. 

Lê um registro especificado. 

Inicializa variávies-índices do sistema 
Cria um novo arquivo de dados. 

Cria um novo arquivo-índice. 

Retoma o número do registro associado à próxima chave do 
índice. 

Abre um arquivo de ciados previamente criado. 

Abre um arquivo-índice prôviamente criado. 

Retoma o número do registro associado à chave anterior do 
índice 

Escreve um registro num arquivo de dados. 

Retoma o número do registro associado a uma chave dada, se 
houver; ou o número-registro associado à primeira chave 
maior que a chave dada. 

Retoma o número de registros que contém informação válida 
num arquivo de dados. 
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AddKey 

0 procedimento AddKey é declarado assim: 

procedure Addkey(var ArqJnd: IndexFile; var NumRegrinteger; var Chave); 

Addkey é usado para acrescentar uma chave e um número de registro a um arquivo-índice. 
0 parâmetro NumReg especifica o número do registro associado à chave no arquivo de 
dados. O parâmetro Chave não tem tipo, mas deve ser uma string do tamanho apropriado. 
Se a operação é bem-sucedida, OK recebe o valor TRUE; do contrário, recebe FALSE. 


AddRec 

O procedimento AddRec acrescenta um novo registro a um arquivo de dados. Sua 
declaração é: 

procedure AddRec(var Arq_dad: DataHle; var NumReg: integer; var Buffer); 

AddRec acrescenta o registro contido em Buffer ao arquivo de dados Arq_dad e coloca o 
número do registro acrescentado em NumReg. O valor retomado- em NumReg geralmente 
é usado para chamar AddKey em seguida. A variável Buffer não tem tipo, mas deve 
conter um registro válido. Em caso de sucesso, OK é TRUE; senão, OK é FALSE. 


ClearKey 

O procedimento ClearKey é usado para fazer o indicador de um arquivo-índice apontar 
para o início do arquivo. É declarado assim: 

procedure ClearKey (var ArqJnd: IndexFile); 


QoseFile e Closelndex 

Os procedimentos CJoseFile e Closelndex são usados para fechar arquivos de dados e 
índices, respectivamente. Suas declarações são: 
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procedure CloseFile(var Arq_dad: DataFile); 
procedure CloseIndex(var Arqjnd: IndexFile); 

Você deve fechar qualquer arquivo aberto pelo Turbo Access. Caso contrário, poderá 
perder registros de dados e destruir índices. 


DeleteKey 

O procedimento DeleteKey retira uma chave de um arquivo-índice. É declarado assim: 

procedure DeleteKey(var Arqjnd: IndexFile; var NumReg: integer; var Chave); 

Se houver chaves duplicadas no arquivo-índice, NumReg deve conter o número do 
registro associado à chave para permitir a identificação correta da chave a ser removida. 
OK é TRUE em caso de sucesso; FALSE, em caso contrário. 


DeleteRec 

O procedimento DeleteRec apaga um registro específico de um arquivo de dados. Sua 
declaração é: 

procedure DeleteRec(var Arq_dad: DataFile; var NumReg: integer); 

DeleteRec retira o registro identificado pelo número de registro NumReg. Se a operação é 
bem-sucedida, OK é TRUE; do contrário, OK é FALSE. Este procedimento remove 
logicamente o registro do arquivo, mas ele continua existindo fisicamente e é colocado 
numa lista encadeada de registros removidos, para um eventual uso futuro. É importante 
não tentar remover um registro já removido, pois você pode destruir a lista de registros 
removidos. 


FileLen 

A função FileLen retorna o número de registros de um arquivo de dados. É declarada 
assim: 
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function FileLen(var Arq_dad: DataFile): integer; 

Lembre-se de que os arquivos de dados do Turbo Access têm informações do sistema no 
primeiro registro. Por isso, o número de registros que contêm seus dados num determinado 
arquivo é FileLen - 1. 


FindKey 

O procedimento FindKey localiza a chave solicitada num arquivo-índice e retoma o 
número de registro associado a ela. É declarada assim: 

procedure FindKey(var Arq_ind: IndexFile; var NumReg: integer; var Chave); 

Se Chave está no arquivo Arq_jnd, então o número de registro associado a Chave é 
colocado em NumReg e OK recebe o valor TRUE. Do contrário, OK é FALSE. 


GetRec 

O procedimento GetRec lê o registro de numero NumReg do arquivo de dados Arq_dad, 
de acordo com a declaração: 

procedure GetRec(var Arq_dad: DataFile; var NumReg: integer; var Buffer); 

A informação lida é armazenada na variável Buffer, que não tem tipo mas deve ter o 
tamanho apropriado. 


Initlndex 

Initlndex serve para inicializar as tabelas usadas pelo Turbo Access, para organizar os 
arquivos-índices. Não usa parâmetros. Initlndex deve ser executado uma vez no início do 
seu programa, antes de qualquer chamada às demais rotinas do Turbo Access. 
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MakeFDe e Makelndex 

Os procedimentos MakeFile e Makelndex servem para criar arquivos de dados e índices, 
para uso com o Turbo Access. Suas declarações são: 

procedure MakeFile(var Arq_dad: Data File; NomeArq: string[14]; 

TamReg: integer); 

procedure Makelndex(var Arq_jnd: IndexFile; NomeArq: string[ 14]; TamCha, 
Dupli: integer); 

O parâmetro TamReg é o comprimento em bytes dos registros a serem armazenados no 
arquivo Arq_dad. O melhor meio de obter este número é usar a função SizeOf do Turbo 
Pascal, em vez de contar os bytes manualmente. O parâmetro TamCha em Makelndex é o 
tamanho da chave em bytes. Dupli deve ser 0 (zero) ou 1 (um). Se Dupli for 1 (um), então 
o índice poderá conter chaves duplicadas; caso contrário, cada chave aparecerá só uma vez 
no índice. Ambos os procedimentos colocam TRUE na Variável OK se forem bem-suce¬ 
didos, FALSE se não forem. 


NextKev 

NextKey retorna o número de registro associado à chave seguinte do arquivo-índice. É 
declarado assim: 

procedure NextKey(Arq_ind: IndexFile; var NumReg: integer; var Chave); 

Após a execução de NextKey, a variável Chave conterá a próxima chave encontrada no 
arquivo-índice Arq_jnd, e NumReg conterá o número do registro associado a esta chave. 
Se a operação foi bem-sucedida, OK é TRUE; senão OK é FALSE. 


OpenFíle e Openlndex 

Os procedimentos OpenFiie e Openlndex são usados para abrir arquivos de dados e 
índices já existentes. Eles são declarados assim: 

procedure OpenFile(var Arq_dad: DataFile; NomeArq: string[14]; 

TamReg: integer); 
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procedure OpenIndex(var Arq_ind: IndexFile; NomeArq: string[14]; 

TamCha, Dupli: iníeger); 

O parâmetro TamReg é o comprimento em bytes dos registros armazenados no arquivo 
Arq_dad. O parâmetro TamCha em Openlndex é o tamanho da chave em bytes. Dupli 
deve ser 0 (zero) ou 1 (um). Se Dupli for 1 (um), então o índice poderá conter chaves 
duplicadas; caso contrário, cada chave aparecerá só uma vez no índice. Ambos os 
procedimentos colocam TRUE na variável OK se forem bem-sucedidos, FALSE se não 
forem. 


PrevKey 

PrevKey retoma o número de registro associado à chave anterior do arquivo-índice. E 
declarado assim: 

procedure PrevKey(Arq Jnd: IndexFile; var NumReg: integer; var Chave); 

Após a execução de PrevKey, a variável Chave conterá a chave anterior à última 
encontrada no arquivo-índice Arq_ind, e NumReg conterá o número do registro associa¬ 
do a esta chave. Se a operação foi bem-sucedida, OK é TRUE; senão OK é FALSE. 


PutRec 

O procedimento PutRec grava um registro de dados na posição especificada do arquivo de 
dados. Sua declaração é: 

procedure PutRec(var Arq_dad: DataFile; var NumReg: integer; var Buffer); 

A informação contida em Buffer é gravada no registro de número NumReg do arquivo de 
dados Arq_dad. A variável Buffer não tem tipo, mas deve conter um registro do tamanho 
apropriado. 


SearchKey 

O procedimento SearchKey é usado para localizar, num arquivo índice, a primeira chave 
igual ou maior à chave especificada. A declaração é: 
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procedure SearchKey(var ArqJmd: IndexFile; var NumReg: integer; var Chave); 

Se há uma chave igual ou maior que o parâmetro Chave no arquivo Arqjnd, então o 
número de registro associado à chave localizada é colocado em NumReg e OK recebe o 
valor TRUE. Do contrário, OK é FALSE, 


UsedRecs 

UsedRecs retorna o número de registros contendo informação válida num arquivo de 
dados. Registros removidos com DeleteRec não são contados. A declaração de UsedRecs 
é: 


function UsedRecs(var Arq_dad: DataFile) : integer; 


EXEMPLO: UMA MALA DIRETA SIMPLES 


Como exemplo, o programa de mala direta simples, desenvolvido np Capítulo 3, através de 
lista encadeada, será adaptado para usar as rotinas do Turbo Access. Primeiro você deve 
calcular o tamanho do registro que contém o endereço. Depois, use o programa 
SETCONST para calcular valores adequados para as seis constantes usadas pelo Turbo 
Access. 


O Turbo Access usa os dois primeiros bytes de cada registro para indicar a 
remoção lógica do registro. Por isso, é necessário acrescentar um campo do tipo integer 
no início da definição do registro original. Além disso, os campos anterior e proximo não 
são mais necessários. O registro revisto fica assim: 


type 

endereço = recorfl 

status: integer; {us.ido pelo Turbo flccess) 
■ no»e: stringC303j 
rua: stringC40 3> 
cidade: stringC203; 
estado: string£2 3; 
cep: stringC 5 3j 


end; 
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O comprimento em bytes de endereço, achado através da função SizeOf, é 104. Você terá 
de fornecer este numero para o programa SETCONST.PAS. 

O programa SETCONST.PAS determina o valor das seis constantes usadas pelas 
rotinas do Turbo Access. Ao executá-lo, você verá uma tela como a da Figura 10-2, com 
os valores default. 


== Turbo Access constant determinat 1 on 

worksheet, 

Version 1. ÍOA 


Data record size (bytes) 

200 

200 


Key string length ícharacters) 

10 



Size o-f the database (records) 

ÍOOOO 



Page size (keys) 

24 



Page stack size (pages) 

10 



Density (Percent o-f Items in use per average 

Page) 50*/. 

75*/. 

1007. 

Total índex -file pages 

Memory used -for page stack (bytes) 

Index -file page size (bytes) 

Index -file size (bytes) 

Data -file size (bytes) 




Order 




MaxHeight 

Average searches needed to find a key 

Average searches satis-fied by page stack 
-Average disk searches needed to find a key 




ESC to end program 





Figura 10-2 Tela inicial do programa SETCONST.PAS. 

O Manual do Turbo Database Toolbox afirma que, na maioria das aplicações, 
você só precisa alterar os valores do tamanho do registro de dados ( Data record sizé) e do 
comprimento da chave (Key string length), O número de registros por arquivo (Size ofthe 
database) também deve ser alterado se você for trabalhar com mais de 10.000 registros. 
Os parâmetros Page size e Page stack size não precisam ser alterados. O tamanho do 
registro de dados neste exemplo é 104, portanto, este valor deve ser digitado no espaço 
Data record size . Ainda no nosso exemplo, usaremos o campo nome como chave, e seu 
tamanho (30) deve ser digitado no espaço Key string length. Pressione RETURN para 
confirmar os demais valores. Uma vez que isto for feito, o programa apresentará a tela de 
acordo com a Figura 10-3. 






258 


Turbo Pascal Avançado 


== Turbo Access constant oetermination 

worksheet, 

Version 1. ÍOA 

_ _ 

Data record size (bytes) 

108 



►.ev strinç length (characters) 

30 



5ice o-f tbe database (records) 

10000 



Page site (l^eys) 

24 



Eage stac) size (pages) 

10 



Density \Percent o-f Items in use per average 

Page) 50*/. 

757. 

1007 

Total índex -file pages 

834 

556 

4i; 

n&irorv used for page 5tacK (bytes 

84 30 

34 30 

84 30 

Inoex- file page size (bvtes) 

843 

943 

843 

l-ioex -file size (bytes) 

703062 

468708 

351531 

Data file size (bytes) 

10801 (.>8 

1080106 

1'>80108 

O-oer 

12 

11 

12 

fnaxt-iei ght 

4 

4 

3 

Average searches needed to fintí a » ey 

7i 

3. 19 

2.90 

Average searches satisfied by page stack 

1 . 73 

1.50 

1.38 

Average disk searches needed to f:ntí a key 

1 .P6 

: .69 

1.52 

E5C to end prograin 





Figura 10-3 A teia de SETCONST.FAS com os novos valores. 


Ao sair de SETCONST.PAS você pode criar automaticamente as declarações de 
constantes. As declarações do nosso exemplo aparecem a seguir, com comentários 
colocados pelo autor. 


Const 

(Estás constantes sao qeratías 
SETCONST.PAS, fornecido pelo 


MaxDataRecSi ze = lüH 
MaxKeyLen - SU 
PageSize = 24 
ürder = 12 
PageStackSize = 10 
haxHeight — 4 


pelo programa 
Database íoolbox 


) 


Dadas estas informações e com os arquivos requeridos pelo Turbo Access já 
incluídos, a primeira parte do programa de mala direta fica assim: 

prograni Exemplo_BD; 

Const 

(Estas constantes sao geradas pelo programa 
SETCONST.PAS, parte integrante do DataBase Toolbdx.) 


MàxDataRecSize 

= 

108 

MaxKeyLen 

= 

30 

PageSize 

= 

24 

Order 

= 

12 

PageStackSize 

= 

10 

HaxHeight 

= 

4 
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type 

endereço = record 

status: integer; {usado pelo Turbo Access) 

nome: stringC30]; 

rua: string[403; 

cidade: string[20); 

estado: 5tring[2]; 

cep: string[5]; 

end ; 


(estes arquivos 
($1 access.box) 
($-1 addxey.box) 
($ I deikey.box) 
(*I getkey.box) 


contem as rotinas de 
(rotinas basicas) 
(inserir dados) 
(apagar dados) 
(busca na arvore) 


banco de dados) 


arq_dad: DataFile; 
arq_ind: Indexfile; 
feito: boolean; 


A parte principal do programa, listada a seguir, primeiro inicializa a tabela de 
índices, usando Initlndex. Então, ela abre ou cria o arquivo de dados e o índice 
apropriado. 0 loop principal do programa é semelhante àquele desenvolvido no Capítulo 
3, permitindo ao usuário selecionar diversas opções. Ao final, o arquivo de dados e o 
índice são fechados. 


bes i n 

Initlndex; 

OpenFile<arq_dad , 'wala.dir', 5 i zeDf( endereço> ); 
ir not OK then 
bea i n 

Ur iteLn('criando arquivo de indice'); 
MaKeIndex( arq_indj 'mala.ind', 30,0 ); 
end } 

feito:=FRL5E; 
repeat 

case Menu of . 

' 1' : Disitacao; 

' 2' : Re»ove; 

' 3' : Lista; 

'4 1 : Busca; 

'5' : Rtualizacao; 

'6': feito:=TRUE; 
end; 

until feito; 

CloseFile(arq_dad); 

CloselndexC arq^ind ); 
end. 


Note que não 6 mais necessário ler ou gravar a mala direta explicitamente — as rotinas do 
Turbo Access mantêm o arquivo atualizado automaticamente. 
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O procedimento Digitacao, mostrado a seguir, recebe a informação de um 
endereço, grava-a no arquivo de dados, e coloca a respectiva chave no arquivo-índice. 
Note, também, que o campo status de cada registro armazena o valor 0. Por convenção, o 
valor 0 no campo status indica registro ativo; valores diferentes de 0 indicam registros 
removidos logicamente. 

[entrar dados) 
procedure Digitacao; 
var 

feito; booleanj 
nuireg; integer; 
te»p; stringC303; 
ite»; endereço; 
begin 

feito;=FRLSE; 
repeat 

Write( 'Nome: ' ); 

Read< ite».no»e ); WriteLn; 

if Length< iteu.nome )=0 then feito:=TRUE 

else 

begin 

Wr i te< ' Rua : ' ); 

Read<iteu.rua ); WriteLn; 

Write("Cidade; # ); 

Read<ite».cidade ); WriteLn; 

Write< 'Estado; ' )j 

Read( i te» .estada )j WriteLn; 

Write( 'CEP; ' ); 

Read< i te» .cep ); WriteLn; 
i te» .status;=0; {«arca co»o ativo) 

FindKey< arq_ind, mi»reg , ite».no»e ); 
if not 0K then [verifica se nao existe» 
chaves iguais) 

begin 

RddRec< arq_dad , nuwreg , i te» ); 

RddKey< arq_ind,nu»reg } ite».no»e ) 
end else WriteLn< 'Chaves iguais ignoradas' ); 
end; 

until feito; 
end; C Digitacao ) 


Como você pode ver, este procedimento verifica se não existem chaves em 
duplicata. Pelo fato de nomes em duplicata não serem permitidos, primeiramente Enter 
checa para ver se a nova chave se iguala a uma que já esteja no arquivo. Se isto ocorrer, a 
entrada é ignorada. 

O procedimento ListAlI lista todo o conteúdo do mailing list: 
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procedure Lista; 
var 

item: endereço; 
len y nuiregi integer; 
begin 

len:=filelen(arq_dad)-l: 
for numreg:=l to len do 
begin 

GetRec< arq_dad,nu»reg,item ); 

{mostra, se houver) 

if item.status = 0 then wostra( item ); 
end; 
end; 

FfleLen retoma o número de registros — ativos ou apagados — do arquivo de dados, 
incluindo o primeiro registro que é reservado para uso do Turbo Access. Portanto, o 
número de registros de usuário é FileLen - 1. Além disso, como alguns registros podem 
estar apagados, é preciso checar o campo status antes de confiar nesta informação. 

A busca de um endereço específico envolve, em primeiro lugar, a localização da 
chave no índice através de FindKey. Quando a chave é localizada, o número do registro 
de dados associado é retomado e usado com GetRec para buscar a informação. O proce¬ 
dimento Busca, mostrado a seguir, implementa esta técnica: 

Cacha um dado especifico) 

procedure Busca; 

var 

nome: stringC30); 
item: endereço; 
numreg: integer; 
begin 

Write< 7 Nome: 7 ); 

ReadLn(none ); 

Cacha a chave, se existir) 

FindKey< arq_ind,numreg,nome ); 

if OK then Cse houver uma chave) 

begin 

GetRec< arq_dad,numreg,item ); 

Cmostra,se houver) 

if item.status = 0 then Mostra( ite*)J 
end else WriteLn< 7 nao encontrado'); 
end; CBusca) 

Finalmente, atira H7 *t um registro existente implica primeiro encontrar o registro, 
lê-lo, modificá-lo e escrevê-lo novamente no arquivo de dados. 0 procedimento Update 
ilustra um método simples de atualização, no qual o usuário precisa remserir toda 
informação. Um acesso mais sofisticado seria reinserir apenas os arquivos modificados. 
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CRltera o conteúdo de u» endereço na lista, exceto o nowe3 

procedure Rtualizacao; 

var 

feito: booiean; 
nu*reg: integer; 
te»p : strinsf303; 
item endereço j 
beg i n 

Wr i te( ' No»e : ' ); 

Readí i te* .no»e ); WriteLn; 

FindKeyí arc_ind,nu*reg, i tem . nowe ); 
if OK then 
beg i n 

Wr i te( ' Rua : ' ‘>; 

Readíi te» .rua ) J WriteLn; 

Wr i te< * Cidade : ' ); 

Read( ite».cidade ); WriteLn; 

Writeí 'Estado: ' ); 

Read( ite».estado); WriteLn; 

Writeí 'CEP: ' >; 

Readí i te» .cep ); WriteLn; 
i te» .status:=0; [«arca como ativo) 

PutRecí arq_dad,nu»reg,ite*)J 
end else WriteLní 'Key not fcund' ); 
endj CRtualizacao3 


O programa de mala direta completo, usando o Turbo Access para manutenção 
dos arquivos, é mostrado a seguir: 

crogram Exemplo_BD; 

Const 

(Estas constantes sao geradas pelo programa 
SETCONST.PAS, parte integrante do DataBase ToolOox.) 


flaxDa taftecSi ze 

- 

108 

MaxKeyLen 

= 

30 

PageSize 

= 

24 

Order 

= 

12 

PageStackSize 

= 

10 

MaxHeight 

= 

4 


type 

endereço = record 

status: integer; (used by Turbo Access} 

no»e: string[30]; 

rua: string[40]; 

cidade: string[20]; 

estado: strmg[2]; 

cep: string[5J; 

end; 

{estes arquivos contem as rotinas de banco de dados} 
{SI access.box) {rotinas basiças} 

{SI addkey.box> {inserir dados} 

{SI tíelkey.box} {apagar dados} 

(SI getkey.box} {busca na arvore} 
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var 

arq_dad: DataFile; 
arq_ind: indexfile; 
feito: boolean; 

function Menuschar; (retorna opcao do usuário} 
var 

car: c har ; 
begin 


WriteLn ( 

' 1 . 

Digi tar nomes' ) ; 

WriteLn( 

' 2 . 

Apagar um 

nome ) 

WriteLn ( 

'3. 

Ver lista 

' ); 

WriteLn ( 

' 4 . 

Procurar 

um nome 

WriteLn ( 

' 5. 

Atua1iz ar 

lista' 

WriteLn( 

' <b . 

Fim' ) ; 


repea t 





Wn teLn ; 

Write('Digite a sua opcao: '); 

Read(car); car:=UpCase(car); WriteLn; 
until (car >= '1') and (car <= '6'); 

Menu:=car; 
end; (Menu} 

(entrar dados} 
procedure Digitacao; 
var 

feito: boolean; 
numreg: integer; 
temp: string[30]; 
item: endereço; 
begin 

feito:=FA lSE; 
repea t 

Wri te (’Nome: '); 

Read(item.nome); WriteLn; 

if Length(item.nome)=0 then feito:=TRUE 

else 

begin 

Wri te ('Rua: '); 

Read(item.rua); WriteLn; 

Wn te ('Cidade : '}; 

Read(item.cidade); WriteLn; 

Wri te ('Estado: ); 

Read(item.estado); WriteLn; 

Wri te ('CEP: '); 

Read(item.cep); WriteLn; 
item.status:=0; (marca como ativo} 

FindKey (arq_ind,numreg,i tem.nome); 
if not 0K then (verifica se nao existem 
chaves iguais} 

begin 

AddRec(arq_dad,numreg,item); 

AddKey(arq_ind,numreg,item.nome) 
end else WriteLn('Chaves iguais ignoradas'); 
end ; 

until feito; 
end; (Digitacao) 
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(Altera o conteúdo de um endereço na lista, exceto 

procedure Atualizacao; 

var 

feito: boolean; 
numreg: inteqer; 
temp: string[30]; 
item: endereço; 
begin 

Write('Nome: '); 

Read(item.nome); WriteLn; 

F indKey ( ar q__ind , numreg , i tem .nome ) ; 

if OK then 

begin 

Write( 'Rua: ' ) ; 

Read(item.rua); WriteLn; 

Write('Cidade: 

Read(item.cidade); WriteLn; 

Write( 'Estado: ' ) ; 

Read(item.estado); WriteLn; 

Write( CEP: ' ) ; 

Read(item.cep); WriteLn; 
item. sta tus:*0; (marca como ativo} 

Pu tRec(arq_dad,numreg,item); 
end else WriteLn( 'chave nao encontrada' ) ; 
end; (Atualizacao} 

(Retira um endereço da lista} 

procedure Remove; 

var 

numreg: integer; 
nome: string(30}; 
item: endereço; 
begin 

Write('Digite o nome a apagar: '); 

Read(nome); WriteLn; 

FindKey(arq_ind,numreg,nome); 

if OK then 

begin 

DeleteRec ( arq__dad , numreg ) ; 

DeleteKey(arq_ind,numreg,nome); 
end else WriteLn( ‘nao encontrado') ; 
end; (Remove} 


procedure Mostra(item: endereço); 
begin 

WriteLn(item.nome) ; 

WriteLn(item.rua) ; 

WriteLn(item.cidade ) ; 

WriteLn(item.estado); 

WriteLn(item.cep); WriteLn; 
end; (Mostra} 


nome } 



O Turbo Pascal Database Toolbox 


265 


procedure Lista; 
var 

item: endereço; 
len,numreg: integer; 
begin 

1en: = fi1elen(arq_dad)-1; 
for numreg:=1 to len do 
begin 

GetRec(arq_dad,numreg,item); 

(mostra, se houver) 

if item.status = O then mos tra(item); 
end ; 
end; 

{acha um dado especifico) 

procedure Busca; 

var 

nome: string[30]; 
item: endereço; 
numreg: integer; 
begin 

Wri te ( 'Nome: ) ; 

ReadLn(nome); 

{acha a chave, se existir) 

FindKey(arq_ind,numreg , nome); 
if OK then (se houver uma chave) 
beg in 

GetRec(arq_dad,numreg,item); 

(mostra,se houver) 

if item.status = O then Mos tra(item); 
end else WriteLn(nao encontrado'); 
end; (Busca) 

beg in 

InitIndex; 

OpenFi1e(arq_dad, mala.dir'. SizeOf(endereço)); 

if not QK then 

begin 

WriteLn('criando arquivo de indice); 
flakelndex (arq_ind , mala.ind' , 30 ,0 ) ; 
end ; 

feito:=FALSE; 
repeat 

case Menu of 

'i': Digitacao; 

'2': Remove; 

'3': Lista; 

'4': Busca; 

'5': Atualizacao; 

'6': feito:=TRUE; 
end; 

until feito; 

CloseFile(arq_dad); 

C loselndex ( arq__ind ) ; 
end. 
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EXEMPLO: INVENTÁRIO SIMPLES 


Para mostrar como é fácil criar novas aplicações, uma vez que você conhece as regras 
básicas do Turbo Access, eis um programa de inventário simples. O registro usado para 
guardar as informações é o seguinte: 

t ype 

inv = recorc 

status: mteser; 
nowe: str 1 ng[ 30 3; 
descncao: string[ 40 ]: 
quantidade: integer; 
preco: real; 

end; 

Com SizeOf, calculamos o seu tamanho, que é 82. Usando este tamanho, e sabendo que o 
comprimento da chave é 30, SETCONST.PAS cria as seguintes definições de constantes: 


CDnst 

í Estas constantes sao geradas pelo programa 
5ETCONST.PR5 , parte integrante do DataBase Toolbox.3 


MaxDataRecSize 

= 

108; 

MaxKeyLen 

= 

30; 

PageSize 

= 

24; 

Order 

= 

12; 

PageStacKSi ze 

= 

io; 

WaxHeight 

= 

4; 


As únicas mudanças necessárias para converter as rotinas do programa de mala 
direta para uso neste programa são alterações nas mensagens que aparecem na tela. O 
programa completo de inventário é mostrado a seguir. 

program Contro1e_Estoque; 

Const 

{tbtds constantes sao geradas» pelo programa 
SE TCONST.PA5, parte integrante do DataBase Toolbox.) 


Ma*DataRecSize 


108 

Ma x keyLen 


30 

PageSize 

= 

24 

Qrder 

= 

12 

PageStac kSize 

= 

IO 

MaxHeight 

= 

4 


type 

estoque = record 

status: ínteger; 
nome: string[30]; 
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descricao: string[403; 
quantidade: integer; 
preco: rea1; 

end ; 


iet»les arquivos 
í M access.box) 
% I addkey.box} 
< I deikey.box > 
* 1 getkey . box } 


contem as rotinas de banco de 
(rotinas basicas) 

{inserir dados) 

{apagar dados) 

{busca na arvore) 


dados) 


arq_dad: DataFile; 
arq_ind: Indextile; 
teito: boolean; 

lunction Menuichar; {retorna opcao do usuário) 


c ar : 


c har ; 


beg in 

WriteLn(1. Digitar produto'); 

WriteLn( 2. Apagar um produto'); 

WriteLn( 3. Ver lista de produtos'); 

W r i teLn ( ' 4 . Procurar um produto'); 

WriteLn( 5. Atualizar lista'); 

WriteLn('6. Fim'); 
repea t 

WriteLn; 

Wnte( Digite a sua opcao; ' ); 
Read(car); car:-UpCase(car); WriteLn; 
until (car >= '1') and (car <= '6'); 

Menu; s car; 
end; {Menu) 


(entrar dados) 
procedure Digitacao; 
var 

teito: boolean; 
numreg; integer; 
temp: string[30]; 
item: estoque; 
begin 

teito;—FALSE; 
repeat 

Write( Produto: ' ); 

Read(item.nome); WriteLn; 

if Leng t h i i t eni. nome ) =0 then feito:=TRUE 

e 1 se 

begin 

Wnte( Descricdo: ' ) ; 

Read (item . descncao ) ; WriteLn; 

Writeí'Quantidade: '); 

Read(item.quantidade); WriteLn; 
Wnte( ’ Preco: ' ); 

Read(item.preco); WriteLn; 
item.status:=0; {marca como ativo) 
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FindKey ( arq_ind , numreg , i tem . nome ) ; 
if not OK then {verifica se nao existem 
chaves iguais} 

beg in 

AddRec(arq_dad,numreg,item) ; 

AddKey ( arq_ind,numreg,item.nome) 
end else WriteLn('Chaves iguais ignoradas); 
end; 

until feito; 
end; {Digitacao} 

{Altera o conteúdo de um item na lista, exceto o nome do produto) 

procedure Atualizacao; 

var 

feito: boolean; 
numreg: integer; 
temp: string[30J; 
item: estoque; 
beg i n 

Write('Produto: '); 

Read(item.nome); WriteLn; 

FindKey (arq _ind , numreg , i tem . nome ) ; 
if OK then 
beg in 

Write('Descricao: '); 

Read(item.descricao ) ; WriteLn; 

Write('Quantidade: 1 ) ; 

Read(item.quantidade) ; WriteLn; 

Wri te (*Preco: '); 

Read(item.preco); WriteLn; 
item.status:=0; (marca como ativo} 

PutRec ( arq_dad , numreg , i tem )';' 
end else WriteLní 'chave nao encontrada' ) ; 
end; {Atua1izacao} 

{Retira um produto da lista} 

procedure Remove; 

var 

numreg: integer; 
nome: string[30]; 
item: estoque; 
beg in 

Wri te ('Digi te o produto a apagar: '); 

Read(nome); WriteLn; 

FindKey ( arq__ind , numreg ,name) ; 
if OK then 
beg in 

De leteRec(arq_dad,numreg) ; 

De 1 eteKey ( arq__ind , numreg , nome ) ; 
end else WriteLn('nao encontrado'); 
end ; (Remove} 

procedure rios t r<a ( i tem : estoque); 
beg m 

Wr i l eLn( Produto: ,item. i iome) ; 

Wr i l el. n ( Uestricao: , item.JescfiCdO) ; 

Wr i teLi» k ' Üuan L idade em es t oque : , i tem . quan t idade ) ; 

WrutLní Preto inicial: , i tem . preco : 10: 2 ) ; 
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WfileLn; 
encl; ( Mubl r a ) 

procedura Lista; 
vir 

item: estoque; 
len,numreg: integer; 
begin 

len:=filelen(arq_dad)-l; 
for numreg:=1 to len do 
beg in 

GetRec(arq_dad,numreg , item); 

{mostra, se houver} 

if item.status = 0 then mostra(item); 
end ; 
end ; 

(acha um dado especifico} 

procedure Busca; 

var 

nome: string[30]; 
item: estoque; 
numreg: integer; 
begin 

Wri te ('Produto: '); 

ReadLn(nome); 

(acha a chave, se existir} 

FindKey(arq_ind,numreg,nome); 
if OK then {se houver uma chave} 
begin 

GetRec(arq_dad,numreg,item); 

(mostra,se houver} 

if item.status = 0 then Mos tra(item); 
end e1 se WriteLn( 'nao encontrado" ); 
end; {Busca} 

begin 

InitI ndex ; 

GpenFi1e(arq_dad, ctr.est', SizeOf (estoque)); 

if not OK then 

begin 

WriteLn('criando arquivo de indice ); 
Makelndex(arq_ind, mala.ind' ,30,0); 
end ; 

fei to:=FALSE; 
repea t 

case Menu of 

' 1' : Digitacao; 

'2': Remove; 

'3': Lista; 

' 4' : Busca; 

'5': Atualizacao; 

' 6 ' : fei to:=TRUE; 
end; 

until feito; 

C1oseFile(arq_dad); 

Cl oselndex(arq_ind); 
end . 
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O programa de mala direta e o programa de inventário usam o mesmo esquema 
básico. Eles podem ser modificados para resolver virtualmente qualquer problema de 
manutenção de bancos de dados. 


TURBOSORT 


O Database Toolbox inclui a função TurboSort, que é um QuickSort genérico. Ela pode 
ser usada para ordenar qualquer tipo de informação, desde que armazenada em pelo menos 
dois bytes. O algoritmo QuickSort foi usado por ser o método de ordenação mais rápido na 
maioria dos casos, como vimos no Capítulo 2. O TurboSort vem no arquivo 
SORT.BOX, que deve ser incluído nos programas que o utilizarem. Sua definição é a 
seguinte: 


function Turt)oSort(tamJitem: integer): integer; 

O parâmetro tam_item é o tamanho dos itens a serem ordenados; este número 
deve ser calculado com o auxílio de SizeOf. 0 valor retomado por TurboSort deve ser 
interpretado de acordo com a Tabela 10-3. 

TurboSort pode ordenar até 32.767 itens. Em geral, a ordenação será feita em 
RAM (para uma maior velocidade), mas um arquivo temporário em disco será criado, se 
necessário. 

Tabela 10-3 Códigos de retomo do TurboSort 


Valor Significado 

0 Ordenação bem-socedida. 

3 Memória insuficiente. 

8 Tamanho do item menor que 2. 

9 Mais de 32.767 itens para ordenação. 

10 Erro de gravação. 

11 Erro de leitura. 

12 Impossível criar arquivo temporário. 
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InP, OutP e Less 


TurboSort tem três fases de operação: entrada dos dados a serem ordenados, ordenação 
dos dados e saída dos dados ordenados. Para auxiliar TurboSort em sua tarefa, você deve 
criar três rotinas chamadas InP, OntP e Less. Estas rotinas são declaradas forward no 
arquivo SORT.BOX, mas você deve implementá-las. 

O procedimento InP é usado para fornecer os dados para o TurboSort, um item 
de cada vez. A passagem propriamente dita ocorre no procedimento SortReiease, também 
definido em SORT.BOX. Sua declaração é: 

procedure SortRelease(item); 

Como o parâmetro item não tem tipo, qualquer tipo de dado pode ser ordenado. Um 
exemplo de procedimento InP que lê 10 números inteiros do teclado, passando-os para 
TurboSort, é dado a seguir: 

procedure InP; 
v/ar 

i: inteser; 
begin 

for i:=l to 10 do ReadLn( dadoC i ]>; 
for i:=l to 10 do Sor tRelease<dadoC i ] ); 
end; í InP } 

O procedimento OutP é usado para ler os dados ordenados pelo TurboSort, um 
item de cada vez, usando SortRetorn, definido em SORT.BOX. Sua declaração é: 


procedure SortReturn(item); 


Como o parâmetro Item não tem tipo, qualquer tipo de dado pode ser retomado. O 
procedimento OutP não tem informação sobre o número de itens a serem devolvidos. Por 
isso, a função SortEOS é usada para verificar o término dos dados. O seguinte exemplo 
de OutP pode ser usado com os números inteiros, gerados pelo processamento InP, visto 
anteriormente: 

procedure DutP; 
var 

dado: inteser; 
begin 

repeat 

SortReturnC dado); 
write(dado , ' ' >; 

until SortEOF; 
end; CDutP3 
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A função Less é a mais crítica das três rotinas fornecidas pelo programador 
porque é executada toda vez que dois dados devem ser comparados pelo TurboSort A 
função Less retoma o valor TRUE se o primeiro argumento for menor que o segundo. 
Less é declarada em SORT.BOX com dois parâmetros, chamados X e Y, que devem ser 
armazenados no mesmo endereço que duas variáveis locais do mesmo tipo do dado a ser 
ordenado. Isto é feito através do comando absolute. Neste exemplo, devemos usar a 
seguinte função Less para comparar dois inteiros: 

functian Less; 
var 

primeiro: char absolute X; 
segundo: char absolute Y; 
beg i n 

less:= primeiro < segundo; 
end; i Less 3 


Para ver como estas rotinas se encaixam, o programa ordenador, a seguir, lê 10 
números inteiros, ordena-os e os exibe na tela: 

prograw» Ordenacao_Siwples; 
var 

dado: arrayfl.,103 of integer; 
resultado: integer; 

{$1 sort.box) { le as rotinas de ordenacao} 

procedure InP; 
var 

i: integer; 
begin 

for i:=l to 10 do ReadLnídadoCi ] ); 
for i:=l to 10 do Sor tRelease<dadoCi1 ); 
end; í InP 3 

function Less; 
var 

primeiro: char absolute X; 
segundo: char absolute Y; 
begin 

less:= primeiro < segundo; 
end; CLessl 

procedure OutP; 
var 

dado: integer; 
begin 

repeat 

SortReturn< dado); 
write< dado,' ' ); 

until SortEOF; 
end; íOutP3 
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begin 

resultado:= TurboSort< sizeof< integsr)) j 
WriteLn< 'Resultado da ordenacao; ' , resultado); 
end, 


GINST 


O programa GINST, incluído no Database Toolbox permite que você crie programas de 
instalação que podem ser fornecidos para que os usuários de seus programas possam 
instalá-los em seus computadores. Há muitos tipos diferentes de computadores, monitores, 
placas de vídeo etc. O GINST permite a criação de programas, em Turbo Pascal, que 
podem ser instalados em diversas configurações de hardware. Esta possibilidade é de 
grande interesse para o programador profissional, mas é de natureza muito técnica. Desta 
forma, não discutiremos este programa aqui. O leitor interessado deve consultar o Manual 
do Turbo Database Toolbox. 




O Turbo Pascal Graphix Toolbook é uma extensão do Turbo Pascal e contém uma grande 
variedade de rotinas gráficas. Estas rotinas se dividem nas cinco categorias seguintes: 


- Gráficos básicos (pontos, linhas, boxes e círculos) 

- Texto 

- Janelas 

- Gráficos de setores e de barra 

- Desenho de curvas 

O grande número de procedimentos, funções e opções fornecidos toma 
impossível a discussão de todo o Graphix Toolbox em apenas um capítulo. (O Manual do 
Graphix Toolbox tem 256 páginas!) Entretanto, uma rápida revisão de cada uma das cinco 
áreas, acompanhada de exemplos, pode dar a você uma idéia das capacidades deste 
poderoso pacote gráfico. 


O HARDWARE BÁSICO 


Para o IBM PC e seus compatíveis, o Graphix Toolbox requer a presença de uma das 
seguintes placas gráficas no sistema: 
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— CGA (Color Graphics Adapter) 

— EGA (Enhanced Graphics Adapter) 

- Hercules Monochrome Graphics Adapter 

O Manual do Usuário do Graphix Toolbox especifica o modo de instalação do programa 
para cada uma das diferentes placas. Também são necessários 192K de RAM. 


SISTEMAS DE COORDENADAS E MUNDOS 


Todas as rotinas gráficas do Toolbox usam dois sistemas diferentes de coordenadas. O 
primeiro é chamado sistema de coordenadas absolutas , e o segundo sistema de 
coordenadas de mundo. 

O sistema de coordenadas absolutas é dado pela placa gráfica que estiver sendo 
usada. Ele representa o número de pixels existentes tanto na horizontal como na vertical. 
(Um pixel é o menor ponto de endereçamento possível na tela.) Por exemplo, a placa CGA 
em modo 6 possui 640 pixels de largura e 200 pixels de altura. As rotinas do Toolbox 
usam o sistema de coordenadas XY, com o eixo X representando a dimensão horizontal e 
o eixo Y representando a direção verücaL Por convenção, o ponto 0,0 se localiza no canto 
superior esquerdo da tela. No caso da CGA, o ponto extremo do canto inferior direito é 
639.199. Apesar do Toolboox poder ser usado com coordenadas absolutas, isto raramente 
é feito, devido às grandes vantagens oferecidas pelo sistema de coordenadas de mundo. 

O sistema de coordenadas de mundo é definido com o procedimento 
DefmeWorld do Toolbox, o qual especifica os pontos iniciais e finais do sistema de 
coordenadas de um mundo. Por exemplo 

Define World(1,0,0,1000,1000); 

define um sistema de coordenadas para o mundo número 1. Neste sistema, o ponto mais 
alto e mais à esquerda da tela tem coordenadas 0,0, e o ponto mais baixo e mais à direita 
tem coordenadas 1000,1000. Uma vez feito isto, se este mundo for selecionado, todas as 
rotinas gráficas do Toolbox serão convertidas para este sistema de coordenadas, 
tomando-as independentes da placa gráfica que estiver sendo usada* Isto permite a você 
criar programas gráficos sem se preocupar com o hardware gráfico a ser usado, ou seja, 
seus programas tomam-se independentes do hardware. O mesmo programa pode ser 
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executado tanto com uma placa CGA com resolução de 640 x 200, quanto numa EGA em 
modo 640 x 350, sem qualquer mudança. 

O uso de um sistema de coordenadas de mundo envolve três etapas diferentes. 
Primeiro, o mundo é definido com o procedimento Define World. Em seguida, um mundo 
já definido deve ser selecionado, usando SeiectWorld. Finalmente, uma janela deve ser 
selecionada para o mundo, usando SelectWindow. Estes procedimentos são declarados 
assim: 


procedure DefineWorld(Numero_doJMundo: integer; XJnicial, Y_micial, 
X_fmal, Y_final: real); 

procedure SelectWorld(Numero_doJvíundo: integer); 
procedure SelectWindow(Numero_da_Janeia: integer); 

XJnicial e YJnicial especificam os valores do canto superior esquerdo; XJinal e 
Yjlnal especificam os valores do canto inferior direito. A janela selecionada deve ter o 
mesmo numero do mundo selecionado. 

O fragmento abaixo define dois mundos e seleciona o mundo número 1 como 
ambiente de trabalho corrente: 

OefíneWorldí 1 , 0 , 0, 1000,1000 >; 

Oef íneWorldí 2,0,0,2000,2000 >: 

SeiectWorlcK 1 ); 

SelectWi ndow( 1); 

Depois disto as rotinas do Toolbox estarão operando em um espaço de 1000 x 1000. 
Dadas estas referências, o ponto 500,500 estará no centro da tela. 

O sistema de coordenadas de mundo tem ainda uma vantagem adicional, ele 
permite que seja dado um zoom em um desenho ou gráfico. Isto é feito diminuindo as 
coordenadas do mundo e deixando todas as outras variáveis iguais. Mais tarde, veremos 
um exemplo de como isto é feito. 


A INICIALIZAÇÃO DO GRAPHIX TOOLBOX 


Os arquivos TYPEDEF.SYS, GRAPHIX.SYS e KERNEL.SYS devem ser incluídos em 
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qualquer programa que use as rotinas do Graphix Toolbox. A ordem de inclusão é 
importante e deve ser exatamente como mostrado a seguir. 

{$1 typedef.sysl 
Í51 graphix.sysJ 
(SI Kernel,sys 3 

Algumas das rotinas do Toolbox requerem a inclusão de outros arquivos além destes. 

Antes que qualquer rotina do Graphix Toolbox possa ser usada, uma chamada a 
InitGraphic deve ser feita, para inicializar o sistema gráfico. Após o uso dos gráficos, a 
chamada LeaveGraphic devolve a tela ao modo de texto. 

Tabela 11-1 Rotinas gráficas básicas 


Nome 


Função 


DrawPoint 

DrawLine 

DrawSquare 

DrawCircle 

DrawCircleSegment 

SetAspect 

GetAspect 


Desenha um ponto numa localização especificada. 

Desenha uma linha numa localização especificada. 

Desenha um quadrado numa localização especificada. 

Desenha um círculo numa localização especificada. 

Desenha um arco numa localização especificada. 

Define a proporção (vertical/horizontai) para as rotinas de círculo. 
Dá a proporção atual das rotinas de círculo. 


GRÁFICOS BÁSICOS 


As rotinas básicas, fornecidas pelo Graphix Toolbox, parecem, à primeira vista, apenas 
uma duplicação das rotinas já existentes no Pascal. Entretanto, não é assim. As rotinas do 
Toolbox podem operar em sistemas de coordenadas de mundo, característica ausente nas 
versões do Turbo Pascal. A Tabela 11-1 resume os procedimentos gráficos básicos. 

O programa' a seguir seleciona um mundo e uma janela, desenhando, em 
seguida, círculos, quadrados e uma linha. O resultado aparece na Figura 11-1. 
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Figura 11-1 Círculos, quadrados e linha num mundo de 1000 x 1000. 

progra* Graf i cos_S i T« cies : 

[SI iypedef.s ys 3 
C$1 graphix,sys 3 
C $ I Kernel .sys } 

v ar¬ 
raio: real; 

i: integer; 

beg i n 

ImtBrapKi cj 

Oef i neWor ldí 1,0 • 0.1000.1000 >; 

SelectWorldí 1 ); 

SelectWi ndowi 1 "> j 

DravjBorder; Cdeser.ka a moldura da janela! 

SetRspect* 1 >; 
rai□:=0.05; 

for i:=1 tD 10 do 
beg i n 
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DrawCircle< 500,500,raio); 
raio: =raio+0.2; 
endj 

repeat until KeyPressed; 

ReadLnj 

Draw5ouare( 100,100,^00,900, false >; 

Draw5quare( 400»400.600*ó00,f a 1 se)! 
repeat until KeyPressed! 

ReadLn; 

OrawLine< 0,0,1000,1000)! 
repeat urtii KeyPressed.j 
LeaveGraphic ) 
end. 

O procedimento SetAspect é usado para definir e modificar a proporção dos círculos a 
serem desenhados. Qualquer argumento diferente de 1 produz uma elipse em vez de um 
círculo. O procedimento DrawBorder desenha uma moldura ao redor da janela ativa. 

Para entender o efeito das coordenadas do mundo, mude a linha do comando 
DefineWorld para 


DefmeWorld(l ,0,0,2000,2000); 


e rode o programa novamente. O resultado será parecido com o desenho mostrado na 
Figura 11-2. Note que nem todos os círculos cabem no mundo de 2000 x 2000. Quando 
isto ocorre, o Toolbox adapta a figura, cortando os lados. 


PROCEDIMENTOS GRÁFICOS DE TEXTO 


O Graphix Toolbox permite que se mostre texto numa tela gráfica de dois modos 
diferentes. O primeiro método é usando Write e WriteLn, os procedimentos padrões de 
I/O do Pascal, que produzem um conjunto de caracteres dependentes da máquina. Um 
conjunto de caracteres dependentes da máquina é determinado pelo hardware do 
computador, e contém o tipo de caractere que você normalmente vê. Entretanto, o 
Toolbox também permite que você desenhe caracteres independentes da máquina, 
usando DrawText e DrawTextW, procedimentos que desenham letras de tamanho variá¬ 
vel em uma tela gráfica ou numa janela. Estas rotinas são de grande interesse. 
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O CONJUNTO DE CARACTERES INDEPENDENTES DA MÁQUINA 

Cada caractere independente da máquina é construído usando-se uma matriz de pixels de 
4x6. Por exemplo, a Figura 11-3 mostra como a letra “E” é construída. Como o conjunto 
de caracteres independentes da máquina é desenhado pelo próprio Toolbox, é possível 
variar seu tamanho usando uma escala. 


DrawText e DrawTextW 

Os procedimentos DrawText e DrawTextW são declarados assim: 

procedure DrawText(X,Y,Escala: integer; Msg: texto); 
procedure DrawTextW(X,Y,Escala: integer; Msg: texto); 
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Figura 11-3 A letra “E” desenhada numa matriz de pixels de 4 x 6. 

Estes procedimentos escrevem a seqüência de caracteres contida em Msg nas coordenadas 
especificadas em X,Y, do tamanho especificado em Escala. O Toolbox declara Msg como 
sendo uma string de tamanho máximo. Entretanto, você pode usar o tipo de seqüência de 
caracteres que for conveniente. 

O pequeno programa a seguir mostra os primeiros seis tamanhos de texto. O 
resultado aparece na Figura 11-4. 

prosraw Graf icos_Texto: 

{SI typedef .s ys 3 
(SI graphix.sys3 
[SI Kernel.sys} 

var 

i: integer; 

bea i n 

InitGrapmc; 

Def i ne^or-1 d 1 - 1.0.0. 1000.1OOO 
SelectWor ldí 1 '•; 

SelectWindaw^1 >: 

OrawBorder; í deser.Ka a ' ««o 1 dy .* *r da janela' 

for i:=1 to ò do 
deg i n 

0r a uíT ex t ( 10 f i *2 0 . i . Içstándo 1 , Z . 3 
end; 

repeat u n 1 1 i K'eyPressedj 
LeaveG^aphic; 
end . 
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Thií ií i TiST 

Thií is 5 tiSt 

This is \ 

| 

ttit 

This is 

; ttst 

This i 

S i ttst 

This 

ií ; test 


Figura 11-4 Caracteres independentes da máquina. 

A maior vantagem de se usar caracteres independentes da máquina no lugar dos caracteres 
definidos pelo computador é a possibilidade de mudar seu tamanho de acordo com as 
necessidades de cada programa. 


JANELAS 


O Graphix Toolbox permite que você crie e mantenha uma ou mais janelas. Cada janela 
pode ser associada a seu próprio sistema de coordenadas de mundo. Os dois procedi¬ 
mentos-chaves na criação de janelas são DefineWindow e SelectWindow. Eles são 
declarados do seguinte modo: 

procedure DefineWindow(Numero_da_Janela,Xl,Yl,X2,Y2: integer); 
procedure SelectWinck)w(Numero_da_Janela: integer); 
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Em DefineWindow, XI,Y1 é a localização absoluta do canto superior esquerdo, e X2,Y2 
são as coordenadas do canto inferior direito. Um aspecto incomum de DefineWindow é 
que a coordenada X é medida em unidades de 8 pixels. Assim, o comando 

Define Window( 1,0,0,10,10); 

define uma janela de 10 pixels de altura por 80 de comprimento. (A coordenada X é dada 
em unidades de 8 pixels porque todas as janelas devem estar alinhadas com as fronteiras 
de byte na RAM de vídeo.) 

Para associar um mundo a uma janela deve-se fazer o seguinte: 

1. Selecionar um mundo. 

2. Selecionar uma janela. 

Para incluir um cabeçalho com uma mensagem, o cabeçalho deve ser associado à janela e 
então “ligado”. Para executar isto são usados os procedimentos DefineHeader e 
SetHeaderOn. Estes procedimentos são declarados assim: 

procedure DefineHeader(Numero_da_Janela: integer; Msg: Texto); 
procedure SetHeaderOn; 

Uma chamada a DrawBorder desenha uma moldura em tomo da janela ativa. 
DrawBorder não requer nenhum parâmetro. 

O programa a seguir mostra a ordem carreia em que os vários procedimentos 
devem ser chamados para criar uma janela com moldura e cabeçalho. O resultado é 
mostrado na Figura 11-5. 

program Uma_Janela; 

CSI iypedef.sys } 

{$1 graphix.sysl 
CSI Kernel.5ys 3 

var 

i : integer; 
beg i n 

InitGraphic; 

DefineWorld< 1.0,0,1000,1000 ); 

DefineWindowC1,20,20,40,100); 

DefineHeaderC1,'Cabeçalho'); 

SetHeaderOn; 
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Figura 11-5 Uma janela simples com uma moldura e um cabeçalho. 

SelectWorld( 1 ) 

SelectWindowf1 ); 

DrawBorder; C desenha a woldura da janela} 
repeat until KeyPressedj 
LeaveGraphi cj 


CRIANDO UM “ZOOM” COM AS COORDENADAS DE MUNDO 


Criando janelas com diferentes coordenadas de mundo você pode criar um efeito zoom 
numa tela gráfica. Observe o seguinte comando, que desenha uma linha: 

Dra wLine(0 ,0,100,100); • 


Se o mundo ativo onde esta linha será desenhada estiver definido como 
Define World( 1,0,0,100,100); 

então a linha será uma diagonal, cortando a tela ou a janela de um canto a outro. 
Entretanto, se o mundo for definido como 


Define World( 1,0,0,200,200); 
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então a mesma linha cobrirá apenas a metade da distância entre um canto e outro. Objetos 
gráficos serão sempre desenhados na proporção do sistema de coordenadas do mundo. 
Num mundo maior, os objetos parecerão menores; num mundo menor, os objetos 
parecerão maiores. 

O programa a seguir cria um zoom num canto de um quadrado, permitindo um 
exame mais cuidadoso de uma pequena linha. O resultado gráfico do programa é mostrado 
na Figura 11-6. 



Figura 11-6 O efeito zoom usando janelas. 
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prograw Janelas; 

{SI typedef.sys 3 
{SI graphix.sys) 

ÍSI KeVnel.sys) 

{ $1 window5.sys) 

var 

i: integer,* 

procedure ra:_Janela; 
beg i n 

De£ineWindow( i,0 ,0,20,100>: 

DefineHeader<'Quadrado' >í 
DeC íneWorlcK 1,0,0,400,400 >: 

SelectWorldC 1>5 
SeiectWindowC1 
SetHeaderOn ,* 

SetBacKgroundC 0 

DrawBorder; {desenha a noldura da janela) 

DefineWindowC 2,20,40,40,140); 
'DefineHeader(2,'Uwi pequeno zoo»' ); 

Defi neWorldC 2,0,0,200,200); 

SelectWorldC 2>; 

SelectWindowC 2 ) 

SetHeaderDn ,* 

SetBacKgroundC 0 ); 

DrawBorder; {desenha a moldura da janela) 

DefineWindowC 3,40,80,60,160); 

Def i neHeaderf 3, ' Rh . .muito welKor ' ); 

DefineWorld(3,0,0,100,100 >: 

SelectWorldC 3 >; 

SelectW i ndow( 3 ),’ 

SetHeaderDn: 

SetBacKgroundC 0 )j 

DrawBorder; {desenha a toldura da janela) 
end; 

beg i r 

InitGraphicj 
Faz_Janela: 

{Zoom num canto da janela) 
for i : =1 tD 3 do 
beg i n 

SelectWorldC i ); 

SelectWindowC i ); 

DrawSquareC 10,10, 120, 120, false >,* 

DrawLine( 10,10, 20,20 ): 
end,' 

repeat until KeyPressed; 

LeaveBraphic; 
end . 
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GRÁFICOS DE BARRA E DE SETORES 


O Graphix Toolbox fornece rotinas que permitem a construção de gráficos de barra e de 
setores (“pizza”). Existem dois procedimentos de gráfico de setores, DrawPoIarPie e 
DrawCartPie. A diferença entre eles está no modo pelo qual a localização e o raio 
gráfico são especificados, em coordenadas polares ou cartesianas. O mais simples de usar 
é DrawPoIarPie. Ele é definido como 

procedure DrawPolarPie(X, Y ,Raio ,ThetaJnterno ^Externo: real Jnfo: PieArray; 

Num,Opcao,Tamanho_do_Texto: integer); 

X,Y é o centro do gráfico, raio é o raio e Theta é o ângulo, em graus, do primeiro 
segmento do gráfico. Os parâmetros Interno e Externo especificam o tamanho das linhas 
que relacionam os segmentos do gráfico às legendas. Info é uma matriz do tipo PieArray, 
a qual é definida assim: 


t ype 

Graf_Pizz a = record 

Rrea: real; 

Texto: wrstrmgj 

end; 

Matriz_Pizza = arrayC1,.MaxPiesGlb3 of Graf_Pizzaj 

O parâmetro Num deve especificar o número de segmentos, e Opção é escolhido de 
acordo com a tabela a seguir: 

Opção Significado 

0 Nenhuma legenda. 

1 Apenas legenda de texto. 

2 Legenda de texto e valores. 

3 Apenas legenda de valores. 

Finalmente, Tamanho_do_T exto especifica o tamanho dos caracteres independentes da 
máquina a serem usados nas legendas. Programas que usem DrawPoIarPie devem, 
também, incluir os dois arquivos seguintes, nesta ordem: 

(51 circsegw.hgh } 

[51 pie.hgh 3 




288 Turbo Pascal A vançado 


Para usar DrawPoIarPie você primeiro carrega os valores dos segmentos do gráfico de 
setores em Info.Area e as legendas associadas a estes valores em Info.Texto. Finalmente, 
os valores dos outros valores devem ser especificados, e o gráfico desenhado. O 
procedimento a seguir desenha o gráfico de setores mostrado na Figura 11-7: 



Figura 11-7 Um gráfico de setores e um gráfico de barras. 

procedure Pizza; 
var 

Ra io,The ta ,Interno,Externo: real; 

Modo,Tamanho:integer; 

Produtos: Mat r i z_P i z z a ,’ 

beg i n 

OefineWindow( 1,0,0,50,100 >; 

DefineHeader( 1, 'Exportacao ( em milhões de dólares' ); 
*0e£ ineWorldí 1,0,0,1000,1000) j 
SelectWorld( 1 ); 

SelectWi ndow( 1 ); 

SetHeaderOn; 

0r awBorder; 

ProdutoCl].Texto:='Cafe''5'; 

ProdutoC21.Texto:='Soja S'; 
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ProdutoC33.Texto:='filuminio 
ProdutoC4 3 . Texto: = ' Ferro 
ProdutoC 5 3.Texto:='Outros 5 '} 

ProdutoC13.flrea:=15j 
ProdutoC 2 3.flrea:=12.4; 

ProdutoC 33.Rrea:=7,34; 

ProdutoC43.Hreai=-24; [para o outro lado} 
ProdutoC 53.flrea:=16j 

Raio:=125; 

Theta:=60; 

5etRspect( 1.0); 

Interno:=0.85; 

Externo:=1.5; 

Moda:=2; 

Tamaumho : =1; 

0r awPolarPieí 500,500 , Ra io,The ta ,Interno, 

Externo,Produtos ; 5,Modo,Ta»anho); 

end; C Pizza 3 


Para desenhar um gráfico de barras, o procedimento DrawHistogram deve ser 
usado. Ele é declarado assim: 


procedure DrawHistogram(Info: PlotArray; Num: integer, Preenche: 

booleano; Densidade: integer); 

O parâmetro Info contém o valor associado a cada barra. Ele é uma matriz bidimensional, 
onde, qualquer que seja i, Info[i,l] é reservado para uso interno e Info[i,2] contém o 
valor da barra “i”. Se Preenche é TRUE, cada barra será preenchida. O parâmetro 
Densidade indica a densidade do preenchimento de cada barra, com o valor 1 indicando o 
preenchimento mais denso. Não é possível desenhar legendas diretamente, usando 
DrawHistogram. 

Qualquer programa que use DrawHistogram deve incluir os dois arquivos 
seguintes, nesta ordem: 

CSI hatch.hgh 3 
C$1 histogrm.hgh } 


O procedimento a seguir exemplifica o uso dè DrawHfetogram. Ele produz o 
gráfico mostrado na Figura 11-7: 
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procedure Barra; 
var 

Produtos: PlotRrray; 
begin 

Def ineWindow( 2,40#110,70,180 ); 

Def ir»eHeader( 1, ' Exportacaü (eu wilhoes de dólares' ); 
Def ineWorld<2,0,0,30,35); 

5electWorld( 2); 

SelectWindow( 2)j 
SetHeaderOn; 

SetBacKgroundOn; 

DrawBorder; 

ProdutoC1,2 3.Rrea:=15; 

ProdutoC 2,23.Rrea:=12.4; 

ProdutoC 3,2 3.Rrea:=7.34; 

ProdutoC4,23.Rrea:=-24; ípara o outro lado) 

ProdutoC 5,23.Rrea:=16; 


DrawHistogra»( Produtos,5,true,5) 
DrawTextWC1,2,1, 'Cafe'' 5oja 

Rluminio 

F erro 

Outros' ) 

DrawTextW(1,7,1, ' $15 $12,4 

$7,34 

S24 

516 ' ); 

end; CBarra3 





Note que as legendas são introduzidas manualmente, usando-se para isto o procedimento 
DrawTextW. 

Para sua conveniência, os procedimentos gráficos de barra e setores foram 
incluídos, aqui, num programa simples: 


prograw Dewo_Graf i cds ,* 

{SI typedef.sys 3 
{SI graphix.sys 3 
C SI Kernel.sys) 

{SI circseg».hgh3 
{SI pie.hgh 3 
ÍSI hatch.hgh 3 
CSI histogrw.hgh3 

procedure Pizza; 
var 

Raio,Theta,Interno,Externo: real; 
hodo, Tamanho:integer; 

Produto: PieRrray; 

beg i n 

DefineWindowf1,0,0,50,100): 

DefineHeaderí1,'Exportacao ( e* wilhoes de dólares >: 
DefineWorld(1,0,0,1000,1000); 

5electWorld( 1 ); 

SeiectWindow( 1); 

SetHeaderDn; 

DrawBorder; 

ProdutoC13.Text:='Cafe''5': 
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ProdutoC 23. Text:= '5o ja $'; 

ProdutoC33.Text:='Riu»inio $',* 
ProdutoC43.Text:='Ferro $'; 

'ProdutoC 5 3 . Text: = ' Outros S'$ 

ProdutoC 1 3 , Rrea : = 15,' 

ProdutoC 2 3.Rrea:=12.4; 

ProdutoC 3 3,Rrea:=7.34; 

ProdutoC 4'3 . Rrea : =-24; {retira fatia 3 
ProdutoC 5j,Rrea:=16; 

R a i o : = 12 5 
Thet a: =60; 

SetRspecte 1.0 ': 

1nterno:=0.85; 

Externo:=1.5; 


Modo:=2; 

T awanho:=1 * 

DrawPolarPie(500,500,Raio,Theta,Interno. 

Externo. Pr odu to,5,Modo,T iwanno'^ 

end; C Pi 22 a } 


procedure Barra; 
var 

Produto: PlotRrray; 
beg i n 

DefineWindowí 2,40,110,70,130 >; 

DefineHeader(2,'Exportacao í ei milhões de dólares )' ); 
DefineWorldí 2,0,35.30,0 >; 

5electWorld( 2 ); 

SelectWindow( 2 ); 

SetHeader Dn ,* 

SetBacK groundí 0 ); 

DrawBorder; 

ProdutoC1,23:=15; 

ProdutoC 2,2 3:=12.4; 

ProdutoC 3,2 3:=7.34; 

ProdutoC 4,2 3:=24 í 
ProdutoC 5,2 3:=16; 

DrawHistograwCProduto,5, true, 3 )> 

DrawTextW(0, 2 , 1 , ' Cafe'' Soja 

DrawTextW(1,7,1, ' $15 $12.4 

end; C Barra } 

beg i n 

I n i tGr aphi c ,* 

P i 2 2 a 
Barra; 

repeat until KeyPressed; 

LeaveGr aphic. 
end. 


Rluimio Ferro Outros' ); 
S7.34 $24 $16 ' ); 




292 


Turbo Pascal Avançado 


TRAÇADO E AJUSTE DE CURVAS 

O Graphix Toolbox contém um excelente conjunto de rotinas de traçado e ajuste de 
curvas. Dois procedimentos, DrawPoly e Spline, serão examinados aqui. 

O procedimento DrawPoly é usado para traçar qualquer forma arbitrária, dadas 
as coordenadas de seus vértices, na tela. Ele é declarado assim: 

procedure DrawPoly(Info: PlotArray; Começo,Fim,Codigo,Escala, 

Linha: integer); 

Info é a matriz do tipo PlotArray que contém as coordenadas X,Y de cada ponto a ser 
desenhado. Começo e Fim são índices da matriz, indicando o primeiro e o último ponto a 
serem desenhados. O parâmetro Codigo indica o símbolo a ser usado para representar os 
pontos na tela. Os valores possíveis de Codigo são dados na tabela a seguir: 

Código Significado 

0 Usa linhas entre os pontos 

1 + 

2 X 

3 Box vazado 

4 Box cheio 

5 Diamante 

6 Y 

7 * 

8 0 
9 


Escala determina o tamanho do símbolo que representa os pontos. Linha é 
usado para especificar como as linhas são traçadas de cada um dos eixos para cada ponto. 
Se Linha for menor que 0, linhas são traçadas a partir do ponto 0 do eixo Y; se Linha for 
0, nenhuma linha será traçada; e se Linha for maior que 0, linhas serão traçadas de baixo 
para cima, a partir do lado inferior da tela. Em geral, Linha é 0. 

O procedimento Spline transforma poucos pontos em muitos pontos, estes 
últimos representando uma curva ajustada. Declara-se assim: 

procedure Spline(Entrada: PlotArray; Pontos: integer; Inicio^im: 

real; var Saida: PlotArray; Pontos_Saida: integer); 
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A informação inicial é especificada em Entrada, sendo Pontos o número de pontos na 
matriz. Inicio e Fim indicam as coordenadas no eixo Y do primeiro e do último ponto. Os 
pontos ajustados são o resultado de Saida, e o número de pontos ajustados é especificado 
em PontosJSaida. 

0 seguinte programa demonstra a excelente performance destes procedimentos: 


progra» fljuste_de_Curvasi 

C $ I typedef . 5 ys 3 
í SI graphix.sys 3 
C$ I Kernel.s ys 3 
íS I polygon.hgh 3 
[ $ I splire.hgh 3 

procechjre Rjuste; 
v ar 

N, i : integer; 

R,B: PlotRrrayj 


beg i n 

N : =10; 

{Gera alguns pontos 3 
for i:=1 to■N do 
begin 

RCi,13:=i-l; 

RC i,2 3:=randou; 
end; 

De£ ineHeader< 1 ,'Rjuste de Curva'); 

Def ineWorld( 1,-1,1.1,10,0); 

SelectWorld<1 ); 

SelectWindow<1 ); 

SetHeaderOn; 

DrawBorder; 

OrawPolygonC R,l,N,-7,2,0 ),* (desenha os pontos 3 

spline< R,N,RC1,13,aCN,13,B,50 ); C ajuste 3 
DrawPolygon(B,l, 50,0,0,0 ); ' (desenha a curva) 

end; C Rjuste 3 

beg i n 

I n i tGr aph i c,’ 

Rjuste; 

repeat until KeyPressed; 

LeaveGraphic; 
end, 


Como os pontos são gerados por Random, o gerador de números aleatórios, 
cada execução produz uma curva diferente. A Figura 11-8 mostra uma tela criada com este 
programa. 
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Figura 11-8 Uma tela do programa de ajuste de curva. 







A habilidade para escrever programas sem defeitos, que façam uso eficiente dos recursos 
disponíveis e sejam fáceis de transpor de uma máquina para outra, é característica do 
programador profissional. É esta habjlidade que transforma a ciência da computação na 
arte da computação, pois poucas são as técnicas disponíveis nesta área. Este capítulo apre¬ 
senta alguns métodos através dos quais eficiência, portabilidade e exatidão podem ser 
conseguidas. 


EFICIÊNCIA 


O termo eficiência, quando aplicado a programas de computador, refere-se ao uso dos 
recursos do sistema, à velocidade de execução, ou a ambos. Por recursos do sistema 
entende-se a RAM, o espaço de disco, o papel impresso e tudo o que possa ser controlado, 
alocado e usado. A eficiência ou ineficiência de um programa dependerá de cada situação 
particular. Considere um programa que use 47 K de memória RAM, 2 megabytes de disco, 
com um tempo médio de execução de 7 minutos. Se este for um programa de ordenação de 
matrizes rodando num Apple II, ele provavelmente não é muito eficiente. Entretanto, um 
programa de previsão do tempo com estas características, rodando num supercomputador 
Cray, é, com certeza, bastante eficiente. 
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Um ponto a ser considerado, quando se está buscando eficiência, é que a 
otimização de um aspecto do programa pode, muitas vezes, piorar outros. Por exemplo, 
tomar um programa mais rápido, com o uso de rotinas em linguagem de máquina, em geral 
o tomará também maior. Comprimir a informação no disco tomará o acesso a esta 
informação mais vagaroso. Estas e outras trocas feitas em nome da eficiência podem ser 
muito frustrantes, especialmente para o usuário final, que não pode ver como uma coisa 
afeta outra. 

A esta altura você pode estar se perguntando se é possível, ou mesmo util, 
discutir eficiência nestes termos. Existem, porém, algumas práticas de programação mais 
eficientes que outras. Existem mesmo algumas técnicas capazes de tomar um programa 
mais rápido e menor. 


EVITANDO REPETIÇÃO DE INSTRUÇÕES 

Mesmo os melhores programadores às vezes escrevem programas contendo redundâncias . 
Não estamos nos referindo aqui a partes do programa que possam ser transformadas em 
sub-rotinas, pois mesmo programadores inexperientes entendem isto com facilidade. Re¬ 
dundância aqui é a duplicação desnecessária de instruções dentro de uma rotina. Examine 
o seguinte fragmento: 


ReacK a, y ); 

if a < 10 then WriteLn< 'Erro' ); 

i£ LengthC y )=0 then WriteLní 'Erro' ): 

O comando WriteLn(‘Erro’) aparece duas vezes. Tal repetição não é necessária, pois o 
mesmo efeito poderia ser atingido deste modo: 


ReacK a, y )j 

if ( a < 10 ) or (LengthK y ) = 0 ) then WriteLn( 'Erro' ); 

A rotina acima não só é menor como também mais rápida que a primeira. Apenas um teste 
if/then é executado. 

Casos muito similares ao deste exemplo dificilmente ocorrerão em programas 
reais, visto que as instruções redundantes estão muito próximas, sendo facilmente 
detectáveis. Em programas reais, rotinas e comandos redundantes estarão, em geral, 
distantes uns dos outros. 

A redundância também pode ser causada pelo método escolhido para escrever 
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uma rotina. As duas funções a seguir, por exemplo, procuram por nma palavra numa 
matriz de sequências: 

type 

strBO = stringC803; 

Matriz_Str = arrayC 1..100 3 of strBO; 

function BuscaKstr:Matriz_5tr; palavra: strBO): boaleanj 

{»etodo carreto, nao-redundante) 

var 

t: integer; 
beg ir» 

Buscai:=FRLSE; 
for t:=l to 100 do 

i£ strC t 3=palavra then Buscai: =TRUE ; 

end; 

function Busca2(str:Matriz_Str ; palavra: str80>: boolean; 

i wetodo redundante, incorreto3 

var 

t: integer; 
beg in 

t: =1 j 

Busca2: =FRL5E; 

if strCt ]=palavra tKen Busca2:=TRUE 
else 
begi n 
t :=2; 

while (t <= 100) do 
begin 

if strC 13=palavra then Busca2:=TRUE; 
end,* 
end; 
end; 


O método usado para escrever a segunda função não apenas duplicou os comandos if/then 
como também apresenta duas atribuições (t:=l e t:=2) essencialmente idênticas. A pri¬ 
meira versão é mais rápida e utiliza muitos menos espaço na memória. 

Em suma, redundâncias são causadas por falta de atenção ao escrever o 
programa ou pela escolha do método errado para implementar uma rotina. De qualquer 
modo, esta é uma falha a ser evitada. 


O USO DE PROCEDIMENTOS E FUNÇÕES 


Procedimentos e funções, apoiados em variáveis locais, formam a base de toda a 
programação estruturada. Por este mesmo motivo, procedimentos e funções são os blocos 
fundamentais do Turbo Pascal, bem como seus mais poderosos recursos. Portanto, esta 
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seção deve ser lida e estudada cuidadosamente. Examinaremos aqui certos aspectos das 
funções do Turbo Pascal, bem como seus efeitos sobre o tamanho e a velocidade dos 
programas. 

O Turbo Pascal é uma linguagem que usa o stack de modo intensivo. Todas as 
variáveis locais e os parâmetros das funções usam o stack para armazenamento temporário. 
Além disto, quando uma função é chamada, o endereço de retomo também é colocado no 
stack. Isto permite à sub-rotina voltar ao local que a chamou. Quando uma função retoma 
ao endereço de origem, tal endereço deve ser removido do stack , juntamente com as 
variáveis locais e o parâmetro referentes àquela função. O processo de empilhar 
informação no stack é conhecido por sequência de chamada , e o processo de retirada de 
informação do stack , sequência de retomo . Estes processos gastam tempo, o qual 
aumenta proporcionalmente ao número de variáveis temporárias e parâmetros usados. Os 
dois exemplos a seguir dão uma idéia de como uma chamada de função pode tomar um 
programa lento: 

Versão 1 Versão 2 

for x:=1 to 100 ÚO' for x:=l to 100 

t: =calcula( x) t:=Rbs(5in(q>/100/3.1416) 

function calculaCq: integer): real: 
var 

t: real; 
beg i n 

calcula:=Rbs(Sin(q )/100/3,1416 ); 
end; 


A versão 2 é muito mais rápida, pois o excesso de seqüências de chamada e 
retomo foi eliminado. O programa seguinte, escrito num pseudo-assembly , mostra as 
seqüências de chamada e de retorno da função calcula: 

; sequencia de chamada 

tove fi/X jpoe o valor de x no acumulador 

push R 

call calcula ;a instrução de chamada poe 

;o endereço de retorno no stacK 

; sequencia de retorno 

) o valor de retorno da funcao deve ser colocado num 

3 registrador - usaremos B 

move ByStacK-1 ;poe o valor em t 

Jreturn Jvolta a rotina de chamada 

}a rotina de chamada então 

pop R ;limpa o parawetro usado na chamada 
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O uso da função calcula dentro do loop for/do causa a execução de 100 
seqüências de chamada e 100 sequências de retomo. Se você estiver querendo uma rotina 
rápida, esta não é a melhor maneira de escreyê-la. 

Neste momento, você pode estar considerando a hipótese de escrever seus 
programas com apenas algumas grandes rotinas, que então rodarão rapidamente. Porém, na 
maioria dos casos, o pequeno diferencial de tempo assim ganho não será significativo, em 
comparação à imensa perda em termos de estrutura que esta prática acarreta. E existe ainda 
um outro problema. Se um subprograma qualquer for muito usado, ele precisará ser 
repetido várias vezes, tomando o programa inteiro muito grande. As sub-rotinas servem 
para racionalizar o uso da memória. Como regra geral, tomar um programa mais rápido o 
toma também maior, e tomar um programa menor o toma mais lento. Só faz sentido repetir 
subprogramas em vez de usar funções onde a velocidade for prioridade máxima. Em 
qualquer outro caso, o uso de funções e procedimentos é sempre mais recomendável. 


CASE VERSUS A ESCADA IF/THEN/ELSE 


Os seguintes fragmentos de programa são funcionalmente equivalentes, mas um deles é 
muito mais eficiente. Você saberia dizer qual? 


case car Df 

i£ car =i 

r a ' then 

f 1( car ) 

' a ' : f1(car )j 

else if 

car= '.b' 

then f2(car ) 

'b': £2(car ) j 

else if 

car='c' 

ther f3(car ) 

'c 'í £ 3(car ) J 

else if 

car='d' 

then f 4(car ) ) 


' d ' : f 4( car ); 
endj 


O fragmento da esquerda é mais eficiente, pois, em geral, o comando case gera um 
programa-objeto mais compacto e rápido que uma série de comandos if/then/else. 

O arranjo de if/then/else mostrado acima é conhecido como “escada 
if/then/else”, pois o programa parece descer a seqüência degrau por degrau. A escada 
if/then/else é importante por permitir a tomada de decisões multilaterais, usando uma 
variedade de tipos de dados que um comando case não admite. Entretanto, se você estiver 
trabalhando com escalares ordinais (inteiros, caracteres, enumerações etc.), o comando 
case poderá ser usado. 
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TRANSPONDO PROGRAMAS 


Muitas vezes ocorre de um programa, escrito numa determinada máquina, ser transposto 
para outro computador, com um processador diferente, um sistema operacional diferente, 
ou ambos. Portar (este é o nome deste processo) um programa pode tanto ser muito fácil 
como extiemamente difícil, dependendo basicamene da forma original do programa a ser 
portado. Um programa facilmente transposto é dito portável. Um programa não será 
facilmente transposto se contiver muitas dependências de máquina, isto é, partes que só 
fimcionam com um certo sistema operacional ou com um processador específico. 0 Turbo 
Pascal foi desenvolvido de modo a permitir a fácil transposição de programas escritos em 
qualquer de suas versões. Isto, entretanto, requer muito cuidado, muita atenção a detalhes 
e, em geral, o sacrifício da eficiência ótima, tudo devido a diferenças entre os diversos 
sistemas operacionais. 

Portar programas de outro compilador Pascal para o Turbo Pascal pode 
apresentar problemas, se um conjunto diferente de expansões tiver sido usado. O inverso 
também é verdadeiro. Se qualquer das expansões do Turbo Pascal tiver sido usada num 
programa, este programa deverá ser modificado antes de poder ser executado em outro 
compilador Pascal. 

Além de oferecer soluções para alguns dos problemas específicos desta área, 
esta seção também mostra como escrever programas portáveis em Pascal. 


O USO DE CONSTANTES 

O meio mais simples de escrever um programa portável talvez seja juntar todos os números 
dependentes do sistema ou do processador numa declaração const. Tais números incluem 
tamanhos de registros para acesso ao disco, comandos especiais de tela, informações sobre 
alocação de memória e qualquer outro número que tenha a menor chance de mudar quando 
o programa for transposto. O uso de declarações const toma a função destes números 
óbvia para quem estiver transpondo o programa, além de facilitar o processo de edição. 

Como exemplo, aqui estão duas declarações de matrizes, e dois procedimentos 
que as usam. O primeiro procedimento não usa const. 

{priweira versão) 
var 

contíâ í arrayC 1, , 100 3 o£ i nt»esBr j 
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procedure £1; 
var 

t: integer; 
begin 

for t:=l to 100 do contaCt3:=t; 
end; 

{segunda versão 3 
const 

MflX = 100; 

var 

contai arrayC1..MflX3 o£ integer; 

procedure £2; 
var 

t: integer; 
begin 

for t:=l to MflX do contaCt3;=t; 
end; 

A segunda versão é obviamente melhor. Se o programa for transposto para uma máquina 
que permita matrizes maiores, apenas MAX precisará ser modificado. Esta versão não sò é 
mais fácil de modificar como também ajuda a evitar erros de edição. Casos similares estão 
sempre aparecendo em programas reais, onde o ganho em portabilidade será substancial. 


DEPENDÊNCIAS DO SISTEMA OPERACIONAL 

Virtualmente, todos os programas comerciais usam características específicas de um 
determinado sistema operacional. Uma planilha eletrônica pode usar a memória de vídeo 
do IBM PC para permitir rápidas mudanças de tela. Um pacote gráfico usará certos 
comandos presentes apenas em um dado sistema operacional. Algumas dependências do 
sistema operacional servem para tornar os programas mais rápidos (e comercialmente 
viáveis). Não há, porém, razão para usar mais dependências que o estritamente necessário. 

Se você precisar acessar o sistema operacional diversas vezes, o melhor será 
fazer isto através de um procedimento-mestre, de modo que só este procedimento tenha de 
ser modificado quando o programa for transposto. Por exemplo, se você for usar rotinas do 
sistema operacional para limpar a tela, limpar o fim de uma linha e colocar o cursor na 
coordenada X, Y, o procedimento a seguir, chamado ChamadaJSisOp, servirá como 
procedimento-mestre: 
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procedure Cha»ada_SisOp< op, x, y : integer )> 

Cinterf ac iacento coa o sistema operacional } 
besin 

case op □£ 

1: ClearScreen } 

2: ClearEOL; 

3 : 6otoXY( x, y ); 

end; 

Apesar de tais chamadas serem padronizadas para todas as versões do Turbo Pascal, esta 
técnica será útil caso o programa deva ser transposto para outro compilador Pascal. 
Apenas os comandos seriam mudados, permanecendo a função intacta. 


EXTENSÕES DO TURBO PASCAL 

Se você estiver portando um programa de outro Pascal para o Turbo Pascal, as extensões 
deste último poetem tomar o trabalho mais fácil, e até melhorar o programa em questão. As 
extensões referentes a sequências de caracteres, por exemplo, tomam a manipulação «destas 
muito mais simples. 

Porém, ao portar um programa em Turbo Pascal para outro Pascal, você 
certamente terá de remover todas as extensões usadas. Todos os tipos string deverão ser 
mudados para array (matrizes de caracteres). Pior, todas as rotinas de manipulação de 
seqüências de caracteres, tais como Copy, Concat e Pos, estarão perdidas. Se seu 
programa precisar de tais procedimentos você deverá criá-los sozinho na nova versão. 

Naturalmente, se você souber de antemão que o programa será transposto para 
outro compilador Pascal, deverá evitar o uso das extensões do Turbo Pascal. 


DEPURAÇÃO 


Parafraseando Thomas Edison, pode-se dizer que um programa é composto de 10% de 
inspiração e 90% de depuração. Bons programadores são também bons caçadores de erros. 
Esta seção trata de certos tipos de erros que surgem com muita frequência no uso do Turbo 
Pascal. 
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PROBLEMAS COM PONTEIROS 

E muito comum no Turbo Pascal o uso incorreto de ponteiros. Problemas com ponteiros se 
dividem em dois grupos: erros quanto aos conceitos e operadores de ponteiros e uso 
acidental de ponteiros inválidos. Para resolver problemas do primeiro tipo, basta entender 
o funcionamento dos ponteiros na linguagem Pascal. O segundo tipo de problema 
resolve-se pela verificação prévia da validade ou não do ponteiro a ser usado. 

O programa abaixo ilustra um típico erro no uso de ponteiros no Turbo Pascal: 

program ERRRDD; Leste programa esta errado) 
type 

ponteiro = A objetoj 

objeto = record 
x: char; 
y; integerj 
nome: stnngLBO); 
end 3 

var 

P: ponteiro; 
beg i n 

P A .nome:= ' tomas' } 

P A . x : = ' 3 ' : 

P A .y:=100; 

end . 

Este programa tem toda a chance de entrar em colapso (e talvez até levar o sistema 
operacional junto). Isto ocorre porque nenhum valor foi atribuído ao ponteiro p (com o 
comando New), p então contém um valor aleatório, e pode estar apontando para qualquer 
ponto da memória. Como certamente não é isto que se deseja, a seguinte linha deve ser 
acrescentada ao programa (antes do primeiro uso de p): 


New(p); 

Ponteiros “chucros” são extremamente difíceis de rastrear. Caso você esteja 
atribuindo valores a uma variável ponteiro que não contenha um endereço válido, seu 
programa pode funcionar conetamente algumas vezes e não funcionar de jeito nenhum em 
outras vezes. Estatisticamente, quanto menor um programa maior a chance dele funcionar 
conetamente, mesmo com um ponteiro errado, pois pouca memória estará sendo usada. 
Conforme o programa cresce e as falhas se tomam mais freqüentes, você tentará corrigi-las 
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pensando nas mudanças e acréscimos recentes, e não em problemas com ponteiros. Assim, 
o mais provável é que você busque o erro onde ele não está. 

Um outro problema pode ocorrer num programa que use ponteiros. Ao chamar 
um New durante a execução, a memória pode acabar. Isto causa um erro de tempo de 
execução, e o programa pára. Para evitar este erro, o Turbo Pascal dispõe da função 
predefinida MemAvail. MemAvail dá o número de bytes (num sistema de 8 bits) ou de 
parágrafos (em sistemas de 16 bits um parágrafo é composto por 16 bytes) restantes no 
heap. Para corrigir completamente o programa você deve então checar a memória 
disponível antes de alocá-la. Isto requer que se saiba o número de bytes necessário para 
cada tipo de dado a ser alocado. Este número pode mudar para cada microprocessador ou 
sistema operacional (o Manual de Referência do Turbo Pascal traz todas estas 
informações). No caso do programa do exemplo anterior, num IBM PC, é preciso que 
existam 6 parágrafos livres (96 bytes). A quantidade real de memória requerida pelo 
registro é de apenas 84 bytes (81 para a seqüência de caracteres, 1 para o caractere e 2 
para o inteiro). Mas como a menor alocação possível num sistema de 16 bits é um 
parágrafo, os 84 bytes devem ser arredondados para cima. O programa correto é o 
seguinte: 

program RIGHT; CThis progran is 0K> 
type 

pntr = “object; 

object «■ record 
x : char; 
y: integer; 
nane:st ring C801; 

end; 


p : pn t r ; 
beg i n 

if MaxAvail>=96 then 

begin íthere is memory available> 
New(p) ; 

p“.nane:=•t on'; 
p*.x: ='g ' ; 

P *.y: = 100; 
end; 
end • 


O comportamento errático, num programa, é um sintonia de problemas com 
ponteiros. O programa funcionará uma vez, e não funcionará em seguida. Outras vezes 
aparecerão valores incompreensíveis em algumas variáveis. Quando problemas como estes 
ocorrerem, verifique os ponteiros. Aliás, sempre que começarem a surgir falhas em seus 
programas, tenha como procedimento padrão a verificação de todos os ponteiros. 
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Apesar de tudo o que foi dito, os ponteiros são um dos mais úteis e poderosos 
aspectos da linguagem Pascal, e valem qualquer problema que possam causar. O ideal é 
aprender a usá-los corretamente desde o princípio. 


A REDEFINIÇÃO DE PROCEDIMENTOS E FUNÇÒES PREDEFINIDOS 

Apesar de não permitir a redefinição de palavras reservadas, o Turbo Pascal permite que 
palavras referentes aos procedimentos e funções padrões sejam redefinidas. Alguns 
programadores às vezes acham esta uma boa idéia, por várias razões. Entretanto, isto só 
causará problemas. Aqui está um exemplo do tipo de problema que ocorre com a 
redefinição de procedimentos predefinidos: 

prograw ERRRDO; (este prograna esta errado ] 
v ar 

t: inieger ) 

pracedure WnteLní t: integer .; 
beg i n 

wnte( t. ' '.'bytes de we»oria no h<?ap' >í 
end; 

beg i n 

(calcula a quantidade de wemoria restante no h e a o } 

WriteLm MewRva i 1 '> ■ 

’UriteLní 'Pronto.' '> i 
end ; 

Neste exemplo, o programador redefiniu o procedimento padrão WriteLn, mas 
esqueceu-se de que a mensagem “Pronto” deveria ser impressa. Assim, pela nova 
definição de WriteLn, a mensagem referente à memória disponível será mostrada duas 
vezes. 


O problema ocorrido no exemplo acima é bastante visível. Erros muito piores 
podem ocorrer quando um procedimento ou uma função são redefinidos mas não são 
usados imediatamente. Mais tarde, quando o programa for modificado ou aumentado, o 
procedimento ou função redefinidos serão usados como se ainda fossem o original. Veja o 
exemplo: 


Function iiewRvail: booleanj 

(verifica se ha espaço na watriz global contai 
var 

t;integer } 
begin 

Memflvai1:=FRL5EJ 

for t: =1 ta MRX do if contaCt1=0 then MewRvai1:=TRUEJ 
end } 
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0 programa funciona perfeitamente. Entretanto, se posteriormente a matriz conta for 
modificada de variável global para variável dinâmica alocada no keap, o problema surgirá. 
Quando você tentar usar MemAvail para saber a quantidade de memória restante no heap, 
o programa falhará. 

O melhor modo de evitar este tipo de erro é nunca dar a um procedimento ou a 
uma função, escritos por você, o mesmo nome de um procedimento ou função 
predefmidos. Em caso de dúvida, adicione suas iniciais ao nome dado (HSMemAvail, em 
vez de MemAvail). 


ERROS DE SINTAXE INESPERADOS 

Ocasionalmente, pode surgir um erro de sintaxe que você não consiga entender ou mesmo 
reconhecer como erro. Um erro particularmente perturbador ocorrerá se você tentar 
compilar este programa: 

prDgra» ERROS t Bste programa nao compilara! 
var 

s: stri ngC 80 ] » 

procedure Fl(x: str i ngC 80 1 ); 
beg i n 

Wr i teLnC x ); 
end; 

beg i r 

ReadLn< s ); 

Fl< s ); 
end. 

O resultado da compilação seria o surgimento da seguinte mensagem de erro na tela: 

Error 36: Type identifier expected 

Pressionando a tecla ÉSC, você encontrará o Turbo Pascal, apontando para a linha abaixo, 
com o cursor na posição indicada pela seta: 

procedure F1 ( x:•string[801>; 

♦ 

E a mensagem de erro fala de um identificador de tipo esperado! A declaração string[80] 
não fornece este identificador? Há um erro no Turbo Pascal? Não. No Turbo Pascal não se 
pode usar o tipo string numa chamada de procedimento ou função. Uma definição de tipo 
do usuário deve ser usada. Neste exemplo, você primeiro declara um tipo chamado str80, 
assim: 
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type 

str80 = stringCBÒD; 

Então str80 é usado como tipo de parâmetro para a função Fl. 0 programa, 
corrigido, seria este: 

progrant CORRIGIDO; f Este programa compilara r«orwalmente 3 
type 

strBO = s t r 1 r 3 [ 80 3 


var 

s : str 1 ng[ 80 3; 

procedure Fl<x: strBO); 
beg 1 n 

WriteLní x ); 
end; 

beg 1 n 

ReadLn( 5 >; 

Fl( s ); 
end. 


Um outro erro de sintaxe, capaz de causar muita confusão, é 0 seguinte: 

program ERRO; í este programa nao compilara 3 

procedure F2; 
var 

t: integer; 
beg i n 

for t: =1 to 10 do WnteLn( '01a' " ); 

end 

beg i n 
F2; 
end. 

Falta o ponto-e-vírgula após o end do procedimento F2. Porém, o Turbo Pascal apontará 
para o begin seguinte. Aqui, o erro é bastante visível, mas em certas situações você terá 
de revisar várias linhas antes de encontrar o local onde falta o ponto-e-vírgula. 


ERROS IF/THEN, IF/ELSE 

Mesmo programadores experientes ocasionalmente caem nas garras de erros 
if/then/if/else. Por exemplo, você é capaz de dizer exatamente o que o fragmento de 
programa a seguir faz? 
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if conta < 100 then 

i£ conta > 50 then F1 
else F 2; 

Não permita que a tabulação inadequada o engane! 0 else não está associado ao primeiro 
if, mas ao segundo. Um else sempre se associará com o if mais próximo. No exemplo, 
quando conta for maior que 100 o Turbo Pascal não fará nada. F2 só será executado se 
conta for menor que 100 e então menor ou igual a 50. E fácil notar isto com o fragmento 
corretamente formatado: 

i£ conta < 100 then 

i£ conta > 50 then F1 
else F2J 

Se o objetivo era fazer com que F2 fosse executado quando conta fosse maior que 100, 
então um bloco begin/end deveria ser usado: 

i£ conta . < 100 then 

bes i n 

i £ conta > 50 then Flj 

end 

else F2; 


O PARÂMETRO VAR EM PROCEDIMENTOS E FUNÇÕES 


Muitas vezes, no calor da programação, esquece-se de que se um procedimento ou função 
muda seu argumento, tal argumento deve ser especificado como um parâmetro var. O 
esquecimento deste detalhe pode gerar resultados bizarros e frustrantes horas de busca do 
erro. Considere o programa a seguir: 

prograio ERRO; [ este programa esta incorreto) 
var 

t: integerj 

procedure F 1< x : integer); 
begin 

Write< 'Oigite um numero: ' ); 

ReadLn< x ); 
end; 

begi n 

Fl< t ); C pede um valor para t) 

WriteLn('Q valor de t e''jt)> 
end; 
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Este programa não funciona. Apenas à variável local x é atribuído um valor, e quando F1 
retoma, t não foi modificado. Para que o programa funcione, x deve ser declarado dentro 
de F1 como um parâmetro var. Isto assegura que a variável de chamada t será modificada. 
O programa ficaria assim: 

prograw CORRIGIDO; C este programa esta correto) 
var 

t: integer; 

procedure FK var x: integer); 
beg i n 

Write< 'Digite um numero: ' ); 

ReadLní x ); 
endj 

beg in 

Fl(t); Cpede um valor para t) 

Ur i te Lm' ' 0 valor de t e ' * : ' , t ); 

end . 

Parece simples, mas em programas grandes este erro pode ser muito difícil de ser 
encontrado. 


TEORIA GERAL DA DEPURAÇÃO 

Cada programador tem sua visão particular sobre programação e depuração, mas algumas 
técnicas se mostraram melhores que outras. No caso da depuração de programas, testes 
sucessivos são considerados o método mais rápido e barato, apesar de parecerem tomar o 
desenvolvimento mais lento. 

O método dos testes sucessivos implica apenas sempre ter um programa 
funcionando. Assim que você tiver um fragmento executável de programa, execute-o, 
testando toda a seção. Conforme o programa for crescendo, teste as novas seções, bem 
como o comportamento de todas as seções em conjunto. Este método garante que os erros 
porventura existentes se concentrem em uma pequena parte do programa. 

Os testes sucessivos se baseiam em probabilidades e no conceito de área. A área 
é um espaço bidimensional. A adição de um comprimento dobra a área. Assim, a área de 
um programa a ser depurado equivale a n 2 . Ao depurar um programa, o ideal é trabalhar 
sobre a menor área possível de cada vez. Os testes sucessivos permitem que cada área já 
testada seja subtraída da área total, diminuindo o tamanho da região que pode conter erros. 
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CONCLUSÃO 


Neste livro, vários algoritmos e técnicas foram discutidos, alguns detalhadamente. A 
ciência da computação é tanto uma ciência teórica como uma ciência empírica. Apesar de 
ser muito fácil saber qual de dois algoritmos é o melhor, é difícil dizer o que toma bom um 
determinado programa. Nas áreas de eficiência, portabilidade e depuração, experimentos 
práticos muitas vezes serão mais produtivos que a reflexão teórica. 

Programar é uma ciência e uma arte. E uma ciência, pois é preciso conhecer 
lógica, e saber como e porque algoritmos funcionam. E uma arte, pois o programador cria 
sua obra, o programa. Programar computadores é um dos melhores trabalhos existentes; o 
programador anda sobre a fronteira que separa a ciência da arte, e tem o melhor destes 
dois mundos à sua disposição. 



A maior parte dos programadores gasta muito do seu tempo convertendo programas de 
uma linguagem para outra. Isto é chamado tradução. Você pode achar o processo fácil 
ou difícil, dependendo dos métodos que utilize e do conhecimento que possua das 
linguagens fonte e destino. Este apêndice apresenta tópicos e «técnicas que o ajudarão a 
converter programas em C e BASIC (inclusive Turbo C e Turbo BASIC) para Turbo 
Pascal. 


Se um programa está escrito em uma linguagem, por que alguém irá querer 
traduzi-lo para outra? Uma razão é a facilidade de manutenção : um programa escrito em 
uma linguagem não estruturada, como BASIC, é difícil de manter e de ampliar. Outras 
razões são a velocidade e a eficiência. O Turbo Pascal é uma linguagem muito eficiente e 
várias tarefas se tomam mais rápidas se traduzidas para esta linguagem. A terceira razão é 
a praticidade : um usuário pode ver um programa útil listado em uma linguagem, mas pode 
possuir ou utilizar um compilador de outra linguagem. Provavelmente você vai achar que 
precisa traduzir um programa para Turbo Pascal por uma ou mais dessas razões. 

C e BASIC foram escolhidas de uma lista de quase uma centena de linguagens 
porque são linguagens populares entre usuários de microcomputadoies e por representarem 
extremos opostos do espectro das linguagens de programação. C é uma linguagem 
estruturada que possui muitas semelhanças com o Turbo Pascal; já o BASIC é uma 
linguagem não estruturada e não possui qualquer semelhança com o Turbo Pascal. Embora 
este apêndice não possa apresentar a tradução destas linguagens em todos os detalhes, 
examinará diversos dos problemas mais importantes. Você já deverá estar familiarizado 
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tanto com C como com BASIC; este apêndice não lhe ensinará qualquer uma das duas 
linguagens. 


CONVERTENDO C PARA TURBO PASCAL 


C e Turbo Pascal possuem muitas semelhanças, especialmente nas suas estruturas de 
controle e na utilização de sub-rotinas independentes com variáveis locais. Isto possibilita 
que se façam muitas traduções diretas, ou seja, substituições de uma palavra-chave ou 
função do Pascal por uma palavra-chave equivalente em C. Com a tradução direta você 
pode usar o computador para assisti-lo no processo de tradução. Mais adiante, será 
desenvolvido um programa de tradução simples. 

Embora C e Turbo Pascal sejam similares, há grandes diferenças entre eles. 
Primeiro, C não utiliza uma verificação exaustiva de tipos enquanto o Pascal usa. 
Portanto, para que haja concordância de todos os tipos de operadores, alguns tipos de 
rotinas escritas em C têm de ser modificados. Por exemplo, em C, tipos character e 
integer podem ser misturados livremente; em Turbo Pascal, isso não pode ser feito sem 
que . se usem algumas funções de conversão de tipo. (Lembre-se, entretanto, de que a 
checagem forte de tipo - ou a ausência dela - não faz com que uma linguagem se tome 
necessariamente melhor ou pior. Ela apenas muda a maneira como um programador pensa 
sobre uma tarefa.) 

Uma segunda diferença mais importante é que C não é formalmente estruturada 
em blocos , enquanto Turbo Pascal o é. O termo estrutura em blocos refere-se à habilidade 
de uma linguagem em criar unidades de código logicamente conectadas, que possam ser 
referidas conjuntamente. O termo significa também que os procedimentos podem ter outros 
procedimentos encaixados nele, os quais serão conhecidos apenas pelo procedimento 
externo. Apesar de C permitir que blocos de algoritmos sejam facilmente criados e por isso 
ser comumente considerada coino estruturada em blocos, ela não permite que se definam 
funções dentro de outras funções. Por exemplo, o seguinte código em C requer duas 
funções: 
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R( ) 
i 

print£<"iniciando fl\n M )j 
B< ); 

} 

B< ) 

{ 

printf ( ‘'dentro de B\n M ); 

} 

Você teria também de certificar-se de que não existem outras funções chamadas de B( ) 
em qualquer outro lugar do programa. De qualquer modo, quando este prog rama é 
traduzido para Turbo Pascal, ele pode ficar assim: 

pracedure Rj 
var 

x: integerj 

procedure B; 
begin 

WriteLn< 'dentro do procedimento B' ); 
end; 

begin 

WriteLnC 'iniciando R'); 

b; 

end; 

Aqui, o procedimento B é definido dentro do procedimento A. Isto significa que o 
procedimento B é conhecido apenas pelo procedimento A e pode ser usado apenas pelo 
procedimento A. Fora do procedimento A, poderia ser usado um outro procedimento B 
sem conflito. 

Uma terceira diferença entre C e Turbo Pascal é que todas as variáveis de C 
devem ser declaradas antes de serem usadas, mas as referências futuras a funções, porém, 
não são restringidas e são, na verdade, muito comuns. Entretanto, em Pascal devem ser 
declaradas todas as variáveis, funções e procedimentos antes de serem usados. Em Pascal 
padrão, isso quer dizer que você deverá usar um comando forward se tiver de se referir a 
uma função ou procedimento antes dele ter sido declarado. 

Uma quarta diferença entre C e Pascal é que em C a compilação separada e a 
“linkagem” são encorajadas, enquanto o Turbo Pascal não é capaz de fazê-las. 
Compilação separada é o processo de compilar um programa em pedaços e depois ligárlos 
com um linker. Como foi discutido no Capítulo 5, o Turbo Pascal permite que sub-rotinas 
externas sejam combinadas com um programa de Pascal, mas não por “linkagem” e 
compilação separada, que é a maneira utilizada pela maioria dos compiladores de C. 
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UMA COMPARAÇÃO ENTRE C E TURBO PASCAL 

A Figura A-l compara palavras-chaves de Turbo Pascal com palavras-chaves e operadores 
de C. Como você pode ver, muitas palavras-chaves de Turbo Pascal não possuem 
equivalente em C. Isso deve-se em parte ao fato do Turbo Pascal usar palavras-chaves em 
lugares onde C usa operadores para executar os mesmos passos. As vezes, Turbo Pascal é 
apenas mais “prolixo” do que C. 


Turbo Pascal 

c 

Turbo Pascal 

C 

and 

&& 

mod 

% 

array 


nil 

(sometimes \0) 

begin 

f 

not 

j 

case 

switch 

of 


const 


or 

ii 

div 

/ 

packed 


do 


procedure 


downto 


program 


else 

else 

record 

struct 

end 

1 

repeat 

do 

file 


set 


forward 

extern (on occasion) 

then 


for 

for 

type 


function 


to 


goto 

goto 

until 

while (as in do/while) 

if 

if 

var 


in 


while 

while 

labei 


with 



Figura A-l Uma comparação entre as palavras-chaves de Turbo Pascal e C. 

Além das palavras-chaves, o Turbo Pascal possui diversos identificadores 
padrão que podem ser usados diretamente num programa. Estes identificadores podem ser 
procedimentos e funções (como WriteLn) ou variáveis globais (como Maxlnt) que 
armazenam informações sobre o estado do sistema. Do mesmo modo, o Turbo Pascal usa 
identificadores padrão para especificar cada tipo de dado como real, integer, boolean e 
char. A Figura A-2 mostra diversos dos identificadores mais comuns de C com os seus 
equivalentes em Pascal padrão. 
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C 

char or int 
char 
char 
EOF 
0 

flush (in library) 
integer 

scanf() and others 
float 

any one-zero value 
printf() 


Turbo Pascal 

boolean 

byte 

char 

EOF 

FALSE 

flush 

integer 

Read or ReadLn 

real 

TRUE 

Write or WriteLn 


Figura A-2 Equivalentes de C de alguns identificadores de Pascal. 

Além destas, qualquer outra função interna equivalente a C pode ser encontrada na 
biblioteca padrão de C; entretanto, elas podem variar de um compilador para outro. 

C também difere do Turbo Pascal nos seus operadores. A Figura A-3 mostra os 
operadores de C e seus equivalentes em Turbo Pascal. 


C Turbo Pascal 

- 4 - + 

* . * 

/ 

/ div 

°/o mod 


— 


< 

< 

> 

> 

>= 

>= 

<= 

<= 

!= 

<> 


Significado 

Adição 

Subtração 

Multiplicação 

Divisão 

Divisão Inteira 

Resto de Divisão Inteira 

Exponenciação 

Atribuição 

Igual 

MeDor que 
Maior que 
Maior que ou igual 
Menor que ou igual 
Diferente 


Figura A-3 Operadores C e seus equivalentes em Turbo PascaL 
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CONVERTENDO LOOPS DE C PARA LOOPS DE TURBO PASCAL 

Pelo fato dos loops de controle serem fundamentais em muitos programas, esta seção 
compara os loops de C e os de Turbo Pascal. C possui três loops internos: for, while e 
do/while. 


O loop for de C possui a fonna geral 

for( inicialização y condição , incremento) comando; 

O for de C é um comando muito mais geral que o for/do do Turbo Pascal: a condição 
de teste não precisa ser um valor alvo, como no Turbo Pascal; ao contrário, pode ser 
qualquer expressão booleana. Também não existe qualquer mecanismo que diga se o loop 
está correndo positiva ou negativamente, pois C não emprega a convenção do Turbo 
Pascal, to e downto. Outra diferença é que tanto as seções de inicialização e incremento 
podem ser compostas - algo que não tem paralelo em Turbo Pascal. Entretanto, apesar 
dessas diferenças, um loop for de C terá frequentemente a forma for/do do Pascal padrão, 
o que faz da tradução uma questão simples. Por exemplo, o loop for de C 

for (x = 10; x <= 100j++x) pr intf ( ,, Xd\n ,, í x ) j 


pode ser traduzido para Pascal como 

for x:=10 to 100 do WriteLn(x); 


0 while de C e o while/do do Turbo Pascal são virtualmente o mesmo. 
Entretanto, o do/while de C e o repeat/until do Turbo Pascal exigem que você use 
palavras-chave diferentes e reverta o teste de loop. Isso se deve ao fato de que o 
do/while de C continua rodando enquanto a condição é verdadeira, já o until do Turbo 
Pascal roda até que algo se torne verdade. Aqui está uma amostra da tradução de ambos os 
tipos de loops: 


c 


Turbo Pascal 


uh i le( x < 5 ) 

C 

printn"Xd\n",x); 
x = getnu«( ); 

} 


while x < 5 do 
begi n 

WriteLní x )j 
Read< x >; 
end j 


do l 

x = getnu»< )j 
printfí"Xd\n",x ); 
} while ( x <= 5 >; 


repeat 

Read< x ); 

WriteLn< x ); 
until x > 
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Seja cuidadoso na tradução do do/while em repeat/until: você deve inverter o sentido da 
condição de teste. (Tem havido alguma discussão filosófica em relação ao do/while versus 
repeat/until. O do/while é considerado positivo pois roda enquanto a condição for 
TRUE; o repeat/until foi chamado de comando negativo, pois o loop é executado desde 
que a condição seja FALSE. Sugeriu-se que a escolha do loop mais fácil de usar depende 
de você ser otimista ou pessimista - mas isto ainda não foi provado.) 


UMA TRADUÇÃO AMOSTRA 


Para ter uma idéia do processo de tradução, siga os passos da conversão de um programa 
em C para Turbo Pascal. A seguir, há um programa simples em C. 

float qwerty; 

main< ) 
i 

qwerty = 0; 
print£("X£">qwerty ); 
pr int£< "oi !\n" )j 
to*( 25 )J 

pr i.nt£( M %f\n”,Ken< 10 ))J 
pr int£("X2.4f\n", qwerty)> 

} 

tow< x ) 
i nt x ; 

c 

pr int£( ”%d",x * 2) 

} 

£loat Xen< w ) 

£loat w> 

C 

qwerty = 23.34; 
return w/3.1415; 

} 

Este programa em C possui três funções declaradas. (Tenha em mente que todas as 
sub-rotinas de C são funções, quer o valor de retomo seja usado ou não.) O primeiro passo 
na tradução deste programa para Turbo Pascal é determinar quais funções de C deverão se 
tomar funções de Turbo Pascal (ou seja, aquelas* que retomarão um valor), e quais serão 
simplesmente procedimentos. 

Você pode determinar isso olhando para a palavra-chave return de C. Se ela 
estiver presente em uma função, você poderá esperar que será retomado um valor. 
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(Tecnicamente, este nem sempre é o caso, mas é suficiente para este exemplo.) A única 
função que usa um return é ken. Portanto, o equivalente em Turbo Pascal de ken é 

function Hen(w : real) : real; 
begin 

qwerty := 23.34; 

Ken : = w / 3.1415; 
end } 

A função tom de C não retoma um valor, por isso, em Turbo Pascal, toma-se um 
procedimento. 


procedure to»(x : integer); 
begin 

writeln(x I 2 >; 
end; 


Em seguida a função main tem de ser convertida no algoritmo do programa para a versão 
em Turbo Pascal mostrada abaixo: 


begin 

qwerty := 0; 
writelnC qwerty); 
writeln( 'oi!' ); 
toi»( 25 ); 

writeln(Ken( 10)); 
writeln( qwerty:2:4); 
end. 

Finalmente, você deverá declarar a variável global qwerty como real, e acrescentar o 
cabeçalho do programa. Quando você faz isso e junta as partes, a tradução do programa de 
C para o Turbo Pascal fica assim: 

prDsrai teste< input* output ); 

va? qwerty : real; 

procedure to*< x : integer ); 
begin 

writeln(x * 2 ); 
end; 

Cunction Ken(w : real) : 
begin 

qwerty := 23.34; 

Ken := w / 3.1415; 
end; 


real; 
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besin 

qwerty := 0; 
writeln< qwerty ); 
nr iteln( 'oi*' )J 
tom( 25 ) j 

writeln(Ken( 10 ) ); 
wr i telr>( qwert y:2 : 4 ); 
end. 


USANDO O COMPUTADOR PARA AJUDÁ-LO A CONVERTER 
C EM TURBO PASCAL 

E possível construir um programa de computador que aceite programas fonte em uma 
linguagem e o retoma na saída em uma outra linguagem, A melhor maneira de se fazer 
isso é pela implementação de um analisador (parser ) de linguagem completo para a 
linguagem fonte - mas em vez de gerar um programa-objeto, ele sairá com a linguagem 
destino. Ocasionalmente você poderá encontrar anúncios de tais produtos em revistas de 
computadores, e seus altos preços refletem a complexidade da tarefa. 

Uma abordagem menos ambiciosa é construir um programa simples para 
ajudá-lo nos seus esforços de conversão de programas através da execução de algumas 
das tarefas mais simples de tradução. Esta “assistência computadorizada” pode facilitar 
muito os trabalhos de conversão. 

Um tradutor assistido por computador aceita como entrada um programa em 
linguagem fonte e automaticamente executa todas as traduções diretas para a linguagem 
destino, deixando as conversões mais difíceis para você. Em C, por exemplo para atribuir 
a conta o valor 10, você escreveria 


count= 10; 


Em Turbo Pascal, o comando é o mesmo, exceto por haver dois pontos próximos 
ao sinal =. Portanto, o tradutor auxiliado por computador pode trocar o sinal da 
declaração de atribuição de C (=) por := em Turbo Pascal. Outro exemplo é o loop de C 
while: a palavra-chave while é usada do mesmo modo no Turbo Pascal. 

Entretanto, C e Turbo Pascal acessam arquivos em disco de maneiras diferentes, 
e não há um modo fácil de se realizar tal conversão automaticamente. Além disso, a 
conversão do do/while de C para o repeat/until do Turbo Pascal também não pode ser 
facilmente automatizada. Daí essas traduções complicadas são deixadas para você. 
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Aqui estão os passos para se criar um tradutor de C para Turbo Pascal. Em 
primeiro lugar, um tradutor de C para Turbo Pascal precisa de uma função que retome um 
sinal de cada vez do programa em C. Como é mostrado aqui, pode-se para isso modificar a 
função PegajSimb desenvolvida no Capítulo 9: 


procedure Peaa_5imbj 
var 

tBT«p : strBO ; 
beg i n 

simbolo:=''J Csequencia de caracteres nula) 

wh ile<Branco<proaCt3 ) ) do t;=t + lj C retira os espaços antes da expressão} 

if proaCt3='$' then s i robol o : = ' $ ' ) 

if ( pos( proaC 13, ' ! < >à~-*/!% A =< ){ }' X >0) 

or (proaCt3=chr<39 ) ) then 

beain 

i f (proaC t 3='C ' ) or < proaC t 3=' 3' ) then 
beai n 

T i po_5iwb: =N0ME j 
if proaCt3='C' then 
bea i n 

siwbolo := 'beain'; 
contador := contador + 1; 
end else 
beain 

siwbolo := 7 end'; 
contador := contador - 1; 
end; 

end 

else 

beain 

Tipo_Siwb := 0ELIMITRD0R; 
siwbolo := proaCtDj t e' ud operador } 
end; 

t := t + 1 

end 

else 

if Letra( proaCt3) then 
beain 

while (not Delim< progC13 } ) do 
beain 

simbolo := concat( s i mbo lo‘, p roaC t 3 ); Cconstrci simbolo) 
t :« t + l; 
end; 

T i po_Siiwb := NOME; 

end 

else 

if Digito( proaCt3 ) -then 
beai n 

while (not Delim<proaC13) ) do 
beain 

siwbglo := concaKsiwbolo , proaC11); Cconstroi nuiero) 
t := t + l; 

T i po_Si»b : = 
end; 


NUMERO 
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end 

else 

if progCt) = then Ce' string) 

begi n 

t := t + l; 

simbolo := chr< 39); [uma ' } 

while progCt ) < > do 

beg i n 

simbolo := concat<simbolo, progCt)); 
t := t + lí 
Tipo_5i*b := SEQ; 
end; 

t := t + l; C ) 

sinbolo := concatcsimbolo*chr( 39 ) ); 

end; 

end; CPega_Sinb} 

Dentro do PegajSimb os símbolos { e } de C são transformados em begin e end, seus 
equivalentes em Pascal, para mais tarde simplificar outras áreas do programa. 

O segundo passo na criação do tradutor é prover uma rotina que traduza 
elementos da linguagem C para suas contrapartidas em Turbo Pascal. O procedimento 
traduz mostrado aqui não é a melhor maneira de codificar tal rotina, mas é suficiente para 
os propósitos do tradutor. 

procedure Traduz; (traduz de C para Pascal) 
begin 

case simboloCl) of 

'~': símbolo := 'nat'; 

' = (ve o proxmo para verificar se e' == ) 
begin 

Pega_Simb; 

if simbolo = '=' then símbolo := '==' 

else 

beg i n 

Devolve; (devolve símbolo) 
símbolo := (sinal de atribuicac) 

end; 
end; 

(ve o proximo para verificar se e' < > ou MOT} 

beg i n 

Pega_Simbj 

if simbolo = '=' then símbolo := ’< >' 

else 

beg i n 

Devolve; (devolve simbolc) 
simbolo := 'not'; (sinal de atribuicao) 
end; 
end; 

'%’i simbolo := ' wod'; 

' ! ' : begin 

Pega_Simbi 

if simbolo < > ' ! ' then Devolve; Cnao e' um ou dobrado) 

5imbolo := 'or'; 
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end; 

' è' : begi n 

Pega_Si»b; 

if simbolo < > then Devolve; C nao e' um e dobrado) 

simbolo := ' and ' ; 
end; 

: símbolo := 'xdf ' ; 

end; 


[asora verifica 
if simbolo = 's 
else if simbolo 
else if símbolo 
else if símbolo 
else if simbolo 
else if simbolo 
else if simbolo 
end; C Traduz} 


as palavras reservadas 3 
witch' then simbolo := 'case' 

= 'struct ' then simbolo := 'record' 

= 'int' then simbolo := 'integer' 

= 'float' then simbolo : r 'real' 

= 'printf' then simbolo t= 'write' 

= 'extern' then simbolo := 'fouard' 

= 'case' then simbolo := ' '; 


Note que em muitos casos, palavras-chave e operadores de C são simplesmente saltados, 
pois são os mesmos que no Turbo Pascal. Entretanto, no caso dos loops while e do/while 
de C, é impossível com esse método saber se você precisa de um loop while/do ou um 
repeat/until. 


Aqui está o programa de tradução completo: 

program C_para_Pascal; 
t ype 

str80 = strmg[ 80 3; 

Tipo=(DELIMI7RD0R, NOME, NUMERO, 5EQ): 

va- 

nome_ent,nome_sai.simbolo,prog: stringC2553; 

Tipo_5imb: Tipo; 
arq_ent,arq_sai: text; 
contador.t: mtegen; 

function Letraí car:ohar ):boolean; 

[responde TRUE se car e' uma letra do alfabeto) 
begi n 

Letra:=<UpCase< car > >= ’ R ' :• and ( UoCaseí car )< = T 2 ' >; 
end: (Letra 3 

f unction Brancoi caríchar ):boolean; 
í TRUE se newline,espaço ou tab3 
beg i n 

Branco:=( car=' ' ) or ( car=chr(9 ) ) or (car = chrí 13 ) 3j 
end; [Branco) 

function Delimí car:char ):boolean; 

[TRUE se for um delimitador) 
begi n 

if car= chrí39 ) then Deliw := TRUE [ uwa '3 
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else i f pôs' car, ' # : . , ; < > I & ~ + - / * * A = 1 í >S C }' ) < > 0 th en Deli»:=TRUE 
else Del i w ; =TRL5E 
end; C Deliw } 

fanction Digito( car:cKar ) :boolean; 

C TRUE se for um d 151 to entre 0 e Q 

beg 1 n 

D i s 1 1 o : = i c a r >= ' 0 ' > and ( c a r < = ‘ 9 ' ): 
end; £ Digito) 

procedure Pega_5imbj 
v a r 

temp:strBO; 
be 9 1 n 

siwbülo:=''; Csequencia de carícteres nula) 

uih i le( Branco( progC t) ) ) do t:=t+l: (retira os espaços antes da expressão) 

if pro 9 Ct)='S' tKen simbo1 o: = '$' j 

i£ ( pos( progüt), ' .#:;,+!< >*~-*/»X A = < )£ ) ' >< >0 > 

or (progCt) = chr( 39)> tKen 

beg i n 

i f ( progC t)= , C / ) Dr <progÇt)=')'> tKen 
beg i n 

Tipo_Si»b:=N0ME; 
if progC t 3= ' C ' t’Ken 
beg 1 n 

sirobolo := 'beg 1 n ' ; 

contador := contador + 1; 

end else 
beg i n 

5 iwbDlo := ' end'; 

contador := contador - 1 j 

end; 

end 
else 
beg 1 n 

Ti P o_Siwh := DELIMITRDDR? 

simbolo := progCt); C e' uw operador } 
end; 

t := t + 1 

end 

else 

if Letra< progC t 3 ) tKen 
begi n 

wKile <not Del i »< progC t 3 V) do 
beg i n 

símbolo := concat( simbolo#progí t 1 ; í constrói símbolo) 
t := t + lí 
end; 

Tipo_Simb : = NDME; 

end 

else 

if Digito(progCt3 ) tKen 
begin 

while (not Del i m( progC t 3 ) ) do 
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begin 

símbolo := concatC 5 imbolo*progCt3 ); Cconstroi numero) 
t s= t + l; 

Tipo_Simb := NUMERO; 
end; 

end 

else 

if progC t) = 7 ** 7 then te' string) 
begin 

t := t + l; 

símbolo := chr( 39); fuma '} 
while progCt ] < > do 

begin 

símbolo := conca t( 5 irabolo, progCt3>; 
t := t + l; 

Tipo_Simb := 5EQ; 
end ; 

t i* t + l; C ) 

símbolo := concatí si»bolo,chr( 39)); 

end; 

end; CPega_Simb) 

procedure Devolve; (devolve símbolo nao usado) 
begin 

t := t - length( 5 iwbolo ); 
end; (Devolve) 

procedure Traduz; (traduz de C para Pascal) 
begi n 

case simboloCl) o€ 

'~ 7 í símbolo := ' n^t'í 

/ = ': (ve o proxino para verificar se e 7 ==) 
begin 

Pega_5imb; 

if símbolo = 7 = 7 then símbolo := 7 ==' 

else 

begin 

Devolve; (devolve símbolo) 
símbolo := 7 : = 7 ; (sinal de atribuicao) 
end; 
end; 

'I 7 : (ve o próxima para verificar se e' <> ou NDT) 
begin 

Pega_Simb; 

if símbolo = 7 = 7 then símbolo := '<>' 

else 

begin 

Devolve; (devolve símbolo) 
símbolo := 'not'; (sinal de atribuicao) 
end; 
end; 

7 X 7 : símbolo := 'mod'; 

7 ! 7 : begin 

Pega_5imb; 

if símbolo < > 7 ! 7 then Oevolve; (nao e 7 um ou dobrado) 
simbolo := 7 or 7 J 
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end; 

' ò ': begin 

Pega_5imb; 

if símbolo < > ' ét' then Devolve; Cnao e' um 
s i mbolo : = ' and ' j 
end; 

; ~': símbolo := 'xor'; 
end; 


end 


í agora verifica as palavras reservadas 3 
i£ símbolo = 'switch' then símbolo := ' 


else 

else 

else 

else 

else 

else 


if 
i £ 
if 
i £ 
i £ 
i£ 


simbolo 
simbolo 
simbolo 
símbolo 
simbolo 
s í mbolo 


'struct' then símbolo 
'int' then símbolo := 
'£loat' then símbolo 
'printf' then símbolo 
'extern' then símbolo 
'case' then símbolo : 


C Traduz 3 


case' 

:= 'record' 
'integer ' 

;= 'real' 

: = ' wnte' 

: = '£ oward ' 


procedure Converte; 
var 

conta: integer; 
beg i n 

Pega_Simb; 

for conta := 1 to contador do 
Write(arq_sai } ' '); 

while símbolo < > '5' do 

begi n 

case Tipo_Simb o£ 

5EQ: write<arq_sai,simbolo ); 

NOME: begin 

Traduz; 

writef arq_sai,si»bolo,' ' 

end; 

DEL I lilTRDOR : begin 

Traduz; 

write( arq_5âi,simbolo ); 
end; 

NUMERO: write< arq_sai,simbolo); 
end; 

Pega_Simb; 
end; 

simbolo := ' '; 

wr i telm arq_sai ,simbolo '>} 
end; (Converte 3 


begin C main 3 

write( 'Arquivo de entrada: ' ); 
readln(nome_ent); 
write( 'Arquivo de saída: ' ); 
readln< nome_sai ); 
assign( arq_ent * noie_ent ); 
assign< arq_sai,no»e_sai ); 
reset(arq_ent); 
rewrite< arq_sai ); 

contador := 0; (contador para cada BEGIN e END3 
while not £0F( arq^ent ) do 


dobrado 3 
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besin 

t := l; Cinicializa índice} 
readln(arq_ent,pros>j 
pros i= concat( prog,'S' ); 
Converte } 
end; 

símbolo ;= '.'y 

u»nteln( arq_5ai t s i wbolo ); 
closeC arq_ent); 
closeC arq_sa i ); 
end. 


Neste programa, a variável global contador é usada para tabular o programa 
automaticamente, colocando três espaços para cada begin e remover três espaços para 
cada end. Isso permite que a saída em pseudo-Pascal já saia adequadamente formatada. 

O programa de assistente de conversão de C para Turbo Pascal basicamente lê 
uma linha do algoritmo fonte em C, tira dele um sinal de cada vez, executa tantas 
conversões quanto possível e escreve uma versão em Turbo Pascal. Para verificar como 
este programa simples pode faeilitar traduções de C para Turbo Pascal, passe este 
programa em C pelo tradutor 


m a i n () 

i nt t , a ; 
t = çetnum() ; 

if(t = 10) then process(t); 
else -C 

a = t-100 ; 
print ("%d"/a) ; 

> 


process(x) 
i n t x ; 
í 

int count; 

for(count=0;count;count++) 

printf("this is x*Xd: Xd\n" / count / x*count); 


> 


Depois de você tê-lo rodado pelo programa tradutor, a saída em pseudo-Pascal 
será a seguinte: 

niain O 
begi n 

integer t ,a ; 
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t : = ge t num () ; 

if (t :=10)then process (t ); 
e Ise beg in 

a :=t -100; 
print ( 1 X d 1 , a ); 

end 


proces s (x ) 
integer x ; 
beg i n 

integer count ; 

for (count :=0;count ;count ++) 

Write ('this is x*Xd: Xd\n',count ,x nount ); 


end . 


Este, como você pode ver, não é o programa em Turbo Pascal,mas você economizou mui¬ 
ta digitação. Em seguida, tudo o que você tem a fazer é editar uma linha de cada vez para 
corrigir as diferenças. 


CONVERTENDO BASIC PARA TURBO PASCAL 


A tarefa de converter BASIC para Turbo Pascal é muito mais difícil do que a de converter 
C para Turbo Pascal. O BASIC não é uma linguagem estruturada e traz pouca semelhança 
com o Turbo Pascal. Isto quer dizer que ele não possui uma série completa de estruturas 
de controle e, o mais importante, não possui sub-rotinas independentes com variáveis 
locais. A tarefa de tradução é muito sutil: geralmente requer conhecimentos extensivos 
tanto de BASIC quanto de Turbo Pascal, e uma compreensão do programa, pois em 
essência você estará apenas usando a versão em BASIC como guia para reescrever o 
programa, agora em Turbo Pascal. Por causa da complexidade da tarefa, esta seção olha 
para algumas das traduções mais problemáticas e oferece sugestões. 


CONVERTENDO LOOPS DE BASIC PARA LOOPS DE TURBO PASCAL 

O loop for/next é a única forma de loop de controle em muitas versões de BASIC. A 
forma geral do loop for/next do BASIC é geralmente similar ao loop for/do do Turbo 
Pascal: há uma inicialização e um valor alvo mas, ao contrário da opção STEP no BASIC, 
os únicos incrementos possíveis no Turbo Pascal são 1 e -1. O loop for/do do Turbo 
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Pascal é muito mais sofisticado e flexível do que o loop for/next do BASIC, pois permite 
que se use como controle qualquer tipo escalar. Você deve recodificar todos os loops 
for/next que usem a opção step em loops do Pascal como while/do ou repeat/until. 
Entretanto, para esta discussão, o exemplo usa apenas loops de BASIC que não empregam 
a opção STEP. Por exemplo, o loop for/next do BASIC 

10 for x=i to 100 

20 PRINT X 
30 NEXT 

é traduzido para Pascal como 

for x:=l to 100 do WriteLn(x); 

Como você pode ver, a substituição é executada uma-a-uma. O verdadeiro segredo na 
conversão do loop for/next é assegurar que a variável de controle do loop não seja 
modificada dentro do loop. Muitas formas de BASIC permitem que a variável de controle 
seja alterada por comando dentro do loop, assim: 

10 FOR C0NTR=10 T0 0 STEP -1 

20 INPUT R 

30 PRINT RSCONTR 

40 IF R=100 THEN C0NTfl=0 

50 NEXT 

O comando IF/THEN da linha 40 poderia fazer com que o loop terminasse antes. Para 
traduzir isto adequadamente para o algoritmo do Turbo Pascal, você deverá prever esta 
contingência. Embora algumas outras implementações do Pascal possam permiti-lo, o 
Turbo Pascal não, pois após o comando for/do ter sido compilado, o número de vezes que 
o loop efetivamente vai se repetir já está fixado - mesmo que você mudasse o valor de 
controle do loop no corpo do próprio loop. Portanto, você deve codificar loops for/next 
do BASIC desse tipo em um loop while/do ou em um repeat/until do Turbo Pascal. 

Algumas formas de BASIC possuem disponível um loop WfflLE/WEND. Neste 
caso, você usaria um loop while/do do Turbo Pascal e sua tradução seria simples. Se o 
BASIC que você está usando não possui o loop WHILE/WEND ou se você preferir não 
usá-lo, seu trabalho será mais difícil, pois você terá de reconhecer um loop construído 
através de comandos GOTO. Este também será o caso se um loop repeat/until tiver sido 
construído em BASIC. Estes tipos de traduções tornam-se pesadelos pois você precisa 
realmente entender de que modo trabalha o algoritmo para reconhecer o loop e traduzi-lo 
para uma das estruturas de controle de loop internas do Turbo Pascal. 
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Depois de você ter achado um loop construído em BASIC, há uma maneira fácil 
de dizer se o loop deve ser traduzido para um while/do ou um repeat/until do Turbo 
Pascal. Lembre-se de que um loop repeat/until sempre é executado pelo menos uma vez 
pois a condição do loop é checada no fim do loop; enquanto que um loop while/do pode 
ser ou não executado pois sua condição é checada no topo. Portanto, você deve observar 
cuidadosamente cada loop construído em BASIC para determinar onde é aplicado o teste 
do loop . Por exemplo, o algoritmo em BASIC 

100 5=5+1 
200 0=5/3.1415 
300 PRINT 0 

400 IF 5 < 100 THEN GOTO 100 


é na verdade um loop repeat/until disfarçado - ele sempre será executado pelo menos 
uma vez. Depois de ter sido executada a linha 100, as linhas de 200 a 400 também serão. 
Se S é menor que 100, o programa voltará para a linha 100. Em Turbo Pascal este trecho 
seria: 


repeat 

s:=s+l; 
q:=s/3.1415; 

Write< q )j 
until s=100; 

No seguinte exemplo em BASIC, o teste do loop é executado no começo: 


10 R=1 

20 IF R > 100 THEN G0T0 80 

30 PRINT R 

40 INPUT B 

50 R=R+B 

60 GOTO 20 

80 PRINT M FEIT0 M 

Isto exige o uso do loop while/do no equivalente em Turbo Pascal: 

a i =1; 

wh i 1e a < = 100 do 
begir 

WriteLn< a ); 

ReadLn< b ); 
a:=a+b; 
end; 


Evite colocar por acidente qualquer inicialização dentro do próprio loop. Neste exemplo, o 
comando a:=l tem de estar fora do loop pois é uma condição de início e não pertence ao 
loop propriamente dito. 



330 Turbo Pascal Avançado 


CONVERTENDO O IF/THEN/ELSE 


A maioria das formas de BASIC possui apenas o comando de linha única 
IF/THEN/ELSE. Isto significa que quando um bloco de comandos deve ser executado na 
saída de um if, tem de ser usado o goto ou o gosub. Você deve reconhecer esta situação 
porque quando você for traduzi-lo, vai querer estruturar o código em um comando if/then 
ou if/tben/else adequado do Turbo Pascal. Como exemplo, considere o fragmento deste 
algoritmo em BASIC: 

120 IF T< 500 THEN GDTO 500 
130 Y=U 
140 T=10 
150 INPUT R$ 


500 REM REINICIR LEITURR DO DISCO 

Para implementar um bloco if em um programa em BASIC, a condição IF deve ser 
negativa: o objetivo do if não deve ser a condição que provoca a entrada no bloco if, mas 
ao contrário, a que causa um salto por cima dele. Este é um dos piares problemas em 
BASIC. O uso de rotinas GOSUB como alvo de IF ou ELSE simplifica ligeiramente o 
problema, mas não completamente. Se o fragmento em BASIC fosse traduzido diretamente 
para Turbo Pascal ele ficaria assim: 

if t<500 tben ínao faz nada; 
el 5e 
beg i tí 

y:=w : 
t: = 10 : 

ReadLní a )J 
end; 

{reinicia leitura do disco] 

Agora você pode ver o problema: o alvo do if na realidade é um comando 
vazio. O único modo de resolver isto é refazendo a condição if de modo que se ela for 
verdadeira, o bloco seja executado. 0 fragmento do algoritmo então ficará: 

if t >=500 then 
beg i n 

yf=w } 
t:=10 j 
ReadLní a >; 
end; 

{reinicia leitura do disco) 


Agora o algoritmo, do modo como está escrito em Turbo Pascal, faz sentido. 
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A diferença entre o modo como o if/then é usado no BASIC e no Turbo Pascal 
ilustra que frequentemente a linguagem de programação direciona a abordagem para a 
solução do problema. A m aioria das pessoas acha a forma positiva do if mais natural que a 
negativa. 


CRIANDO SUBPROGRAMAS EM PASCAL A PARTIR DE PROGRAMAS EM 
BASIC 


Um motivo que dificulta a tradução de BASIC para Turbo Pascal é o fato de que o BASIC 
não sustenta sub-rotinas independentes com variáveis locais. Isto significa que uma 
tradução literal de um programa de BASIC para Turbo Pascal produz um programa 
principal muito grande, sem subprogramas. Isto, em primeiro lugar, contraria muitas das 
razões que você deve ter considerado para querer traduzir o programa: manutenção, 
estrutura e flexibilidade. 

Uma tradução melhor criaria um programa em Turbo Pascal com um programa 
principal bem menor e muitos outros subprogramas, mas para fazer isso, requer-se 
conhecimento do programa e um olho vivo para a leitura de algoritmos. Entretanto, aqui 
vão algumas dicas para auxiliá-lo. 

Primeiro, você deve transformar todas as sub-rotinas em subprogramas. Além 
disso, procure pelas funções similares nas quais tenham sido mudadas apenas as variáveis, 
e coloque-as em um subprograma com parâmetros. Por exemplo, este programa em BASIC 
possui duas sub-rotinas — a primeira na linha 100 e a segunda na 200. 


10 R=10 
20 B=20 
30 B0SUB 100 
40 PRINT R,B 
50 C=20 
Ó0 D=30 
70 G0SUB 200 
80 PRINT C,D 
90 END 
100 R=R*B 

110 b=r/b 

120 RETURN 
200 C=C*D 
210 D=C/D 
220 RETURN 
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Ambas as sub-rotinas fazem exatamente a mesma coisa, exceto por operarem em diferentes 
variáveis. Uma tradução correta deste programa para Turbo Pascal possui apenas um 
procedimento, que usa parâmetros para evitar que sejam empregadas duas funções: 

prograi x; 
var 

aj b> c* d: real; 

procedure flívar x,y: real); 
bcgi n 

x : = x*y; 
y :=x/y; 
end; 

be 9 i n 

a:-10; b í = 20; 
f l( a,b ); 

HriteLn< a, ' Sb); 

c:=20; d:=30; 

£i( c,d ); 

Wr i teLn< c,' S d ); 
end . 

Esta tradução para Turbo Pascal aproxima o sentido do algoritmo para o leitor mais 
proximamente do que a versão em BASIC, uma vez que BASIC implica que haja real- 
mente duas funções separadas. 

A segunda regra é que você deve colocar todo o trecho repetido em uma função. 
Em um programa em BASIC algumas linhas iguais podem ser repetidas. Um programador 
ocasionalmente faz isso para tomar o algoritmo um pouco mais rápido. Por ser uma 
linguagem compilada, o uso de funções ao invés de programas principais longos em Turbo 
Pascal tem muito pouco efeito negativo na velocidade de execução, e o aumento de clareza 
e estrutura compensam qualquer ganho em velocidade. 


LIVRANDO-SE DAS VARIÁVEIS GLOBAIS 

Em BASIC, todas as variáveis são globais: elas são conhecidas por todo o programa e 
podem ser modificadas em qualquer lugar dele. No processo de tradução tente converter 
tantas dessas variáveis globais quanto possível em variáveis locais, pois isso torna o 
programa mais elástico e livre de falhas. Quanto mais variáveis globais haja, tanto é mais 
provável que ocorram efeitos colaterais. 
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Às vezes é difícil saber quando fazer uma variável local a um subprograma. As 
escolhas mais fáceis são as que controlam contadores em seções curtas do algoritmo. Por 
exemplo, neste programa 

10 FOR X=1 TO 100 
20 PRINT X 
30 NEXT 

X está sendo usado claramente para controlar o loop FOR/NEXT e pode, por isso, ser 
colocado em uma variável local dentro de um subprograma. 

Um outro tipo de variável candidata a tomar-se local é a variável temporária. 
Uma variável temporária guarda o resultado intermediário de um cálculo. Variáveis 
temporárias frequentemente são espalhadas em um programa, e podem ser difíceis de 
reconhecer. Por exemplo, a variável C12 mostrada aqui guarda um resultado temporário 
no cálculo. 

10 INPUT A,B 
20 GOSUB 100 
30 PRINT C12 
40 END 
100 C12A*B 
110 C12=C12/0.142 
120 RETURN 

O mesmo programa em Turbo Pascal, com C12 como variável local, seria: 

program x; 
var 

a f b: real; 

function f2(x,y: real): real; 
var 

Cl2: real; 
begin 

C12:=a*b; 

Cl 2:=C12/0.142; 
f2:=C12; 
end; 

begin 

ReadLn(a,b); 

WriteLn(f2(a,b)); 

end. 
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Lembre-se de que quanto menos variáveis globais, melhor. Portanto é importante encontrar 
boas candidatas para variáveis locais. 


PENSAMENTOS FINAIS SOBRE TRADUÇÃO 


Embora a tradução de programas possa ser a mais tediosa de todas as tarefas de 
programação, também é uma das mais comuns. Uma boa abordagem é primeiro entender o 
modo como funciona o programa que você está traduzindo. Uma vez sabendo como ele 
opera, será fácil reescrevê-lo e você saberá se sua nova versão está funcionando 
corretamente. Além disso, quando você conhece o programa que está traduzindo, o 
trabalho toma-se mais interessante pois não se tratará simplesmente de um processo de 
substituição de sinais. 





AMBIENTE DE TRABALHO 


Houve mudança completa na apresentação do menu, que agora é do tipo 
“pull-down menu”. Desta maneira, ao selecionar um item cmo “file” (arquivo) aparecem 
os subitens do menu numa janela. Para selecionar um subiíem, é só deslocar o cursor com 
as setas (o fundo da opção selecionada fica reverso) ou digitar seu primeiro caractere. 


OPÇÕES DO MENU PRINCIPAL 
FILE (arquivo) 

. LOAD (carregar) - Lê um arquivo do disco para o Editor. Se o arquivo não 
existir, será criado. 

. PICK (pegar) - Permite a escolha de um arquivo entre um dos oito últimos 
arquivos editados recentemente. 

. NEW (novo) - Limpa o editor e deixa o nome do arquivo como 
NONAME.PAS. 

. SAVE (salvar) - Grava o arquivo da memória para o disco. Se o arquivo tiver 
o nome de NONAME.PAS, será perguntado um novo nome. 
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. WR1TE TO (escrever em) - Escreva o conteúdo do Editor num arquivo 
indicado pelo usuário. 

. DIRECTORY (diretório) - Mostra o diretório, de acordo com uma máscara 
especificada. 

. CHANGE DER (mudar de diretório) - Permite mudar o subdiretóiio atual. 

. OS SHELL (ambiente do Sistema Operacional) - Sai do Turbo Pascal e volta 
temporariamente para o Sistema Operacional, onde pode-se executar qualquer 
comando ou outros programas. Para voltar ao Turbo, é só digitar EXIT. 

. QUTT (sair) - Sai do Turbo Pascal, voltando para o Sistema Operacional. 

EDIT (editar) 

Semelhante à versão anterior. Permite a edição de programas. Para voltar ao 

menu principal, tecle aKD ou FIO. 

RUN (correr, executar) 

Compila, linca e executa seu programa. 

COMPILE (compilar) 

. COMPILE (compilar) - Compila e linca o programa-fonte. 

. MÀKE (fazer) - Cria um arquivo executável tipo .EXE. Ao compilar seu 
programa, o Turbo checará se alguma unidade (unit) foi alterada desde a 
última compilação. Se foi alterada, será recompilada. 

. BUELD (construir) — Funciona de maneira semelhante à opção MAKE, porém 
forçando a recompilação das unidades. 

. DESTINATION (destinação) - Permite selecionar a áestínação do arquivo 
compilado entre memória e disco. Para escolher a opção, digite inicial (D) ou 

RETURN. 

. FIND ERROR (achar erro) - Pode-se achar um erro dando o endereço na 
forma XXXXXXXX. 

. PRIMARY FILE (arquivo primário ou principal) — O mesmo que o “Main 
File” na versão 3.0. O Turbo sempre começa a compilação por este arquivo. 
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. GET INFO (recuperar informação) — Mostra informações a respeito do 
arquivo que está sendo trabalhado. 


OPTIONS 


. COMPILER (compilador) - Permite a inserção de diretivas de compilação 
sem escrevê-las no programa-fonte. É também usada para selecionar 
necessidades de memória para seu programa. 

. ENVIRONMENT (ambiente) - Permite a seleção das opções de “Auto Save 
Edit” (gravação automática do arquivo editado) e “Backup Source File”, 
(copia de segurança do arquivo-fonte). A opção “Environment” permite a 
seleção da quantidade de linhas para tela (25, 43 ou 50), janelas para zoom e 
“toggles” para reter ou não a tela. 

. DIRECTORIES (diretórios) - Mostra ao Turbo em qual diretório devem ser 
procurados os arquivos (programas-fontes, arquivos de inclusão, unidades e 
arquivos-objetos. 

. PARAMETERS (parâmetros) - Permite a especificação de parâmetros para 
quando o programa for compilado em memória. 

. LOAD OPTIONS (opções para carregamento) - Carrega um arquivo de 
configuração do Turbo Pascal. 

. SAVE OPTIONS (opções para salvar) — Grava a configuração atual do Turbo 
Pascal para um arquivo em disco. 


UNXTS 


São unidades de código que contêm procedimentos e funções e são compiladas 
separadamente do programa principal. A vantagem de se usar as “Units” é que não é 
necessário recompilar o programa inteiro após uma pequena alteração, somente 
recompila-se a “Unit” afetada. 

Existe também a possibilidade de se compilar, testar e debugax uma unidade 
separadamente do programa principal Uma vez testada e compilada, a unidade não 
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precisará mais ser compilada. Em vez disso, a unidade será lincada com o programa que a 
usar. Linear uma unidade é mais rápido que compilá-la. 

As unidades são exaíamente como programas e possuem o seguinte formato: 

. linha com o nome da unidade, que deve ser o mesmo nome do arquivo. 

. uma seção de interface, área que se conecta com outros programas ou 
unidades, contendo o cabeçalho dos procedimentos e funções, variáveis 
globais e o uso de outras unidades. 

. seção de implementação, contendo o corpo dos procedimentos e funções 
anunciados na seção de interface e as variáveis globais de uso interno pela 
unidade. 

Ao necessitar de algum procedimento ou função contido numa unidade, chame-o 
com o comando Uses. 


UNITS COMPILADAS 

As unidades podem ser compiladas da mesma maneira que os programas. Uma 
vez compiladas, serão armazenadas pelo Turbo num arquivo de mesmo nome que a 
unidade, porém com terminação .TPU. 


ESTRUTURA DOS PROGRAMAS 


Existem algumas diferenças, entre elas: 

- Não existem mais “Overiays” ou troca de programas com “Chain”. 

- Os programas podem usar toda memória (até mais de 640 K). 

- Existência de “UNITS” (ver acima). 
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PALAVRAS RESERVADAS DO TURBO PASCAL 4.0 


Implementation 

Declara o começo da seção de implementação numa Unit. A seção de 
implementação contém o corpo das rotinas declaradas na seção de interface. Só 
é necessário indicar o nome da rotina e seu corpo, e não seus parâmetros 
(indicados sempre na seção de interface). 


Interface 

Declara o começo da seção de interface numa Unit A seção de interface contém 
o cabeçalho das rotinas (procedimentos e funções) e seus parâmetros, que serão 
“visíveis” a outros programas e unidades que utilizem a unidade atual. 

Interrupt 


Declara um procedimento como um procedimento de interrupção.' ■ 
Ex.: Piocedure handler (Flags, CS, IP, AX, BX, CX, DX, SI, 

Dl, DS, ES, BP : word ); Interrupt; 


Unit 

Declara que o arquivo é uma Unit. 

Uses 


Declara quais unidades serão acessadas pelo programa ou unidade. 


DIRETIVAS DE COMPILAÇÃO DO TURBO 4.0 

DIRETIVA DE COMPILAÇÃO B 
Short-drcuit Boolean Evaluation (Defauit é B-) 

(Avaliação Booleana Rápida) 

Reduz o tempo que o computador leva para determinar se uma expressão é 
verdadeira ou falsa. 
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DIRETIVA DE COMPILAÇÃO D 

Debug Information (Default é D+) 

(Informação para Debug) 

O Turbo Pascal gera um arquivo que relaciona o programa-fonte com o 
programa-objeto quando esta diretiva está ativa. Se ocorrer um erro na execução (run-time 
error), o Turbo Pascal usará esta informação para localizar o erro no programa-fonte. 

DIRETIVA DE COMPILAÇÃO F 

Force Far Calls (Default é F-) 

(Força Chamadas Distantes) 

Todas as chamadas a procedimentos e funções são geradas como “chamadas 
distantes” (far calls), quando esta diretiva estiver ativa. 

DIRETIVA DE COMPILAÇÃO L 

(Link Buffer (Default é L+) 

(Buffer para Lincagem) 

O buffer para lincagem é uma porção de memória usada para acelerar o processo 
de lincagem, após a compilação. 

DIRETIVA DE COMPILAÇÃO L 

Link Object File (Sintaxe é {$L CURSOR.OBJ}) 

(Linca Arquivo Objeto) 

No Turbo Pascal 4.0, procedimentos externos devem ser definidos em arquivos 
.OBJ e não mais .BIN. A diretiva L avisa ao Turbo que o arquivo indicado deve ser 
lincado no programa. O módulo-objeto deve ser um “Arquivo Objeto Relocável Intel” 
(Intel Relocatable Object File). 

DIRETIVA DE COMPILAÇÃO M 

Memory Allocation Sizes 

(Sintaxe é {$M EspaçoStack, HeapMin, HeapMax}) 

(Espaços para Alocação de Memória) 

Permite escolher a quantidade de espaço disponível para o Stack e o Heap. O 
estado default é {$M 16384,0, 655360}, que significa 16 K para o Stack, memória mínima 
para o Heap é 0 K e o máximo é 640 K. 
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DIRETIVA DE COMPILAÇÃO N 

Numeric Co-processor (Defauit é N-) 

(Co-processador aritmético) 

Quando a diretiva N está desativada (N—), os cálculos de tipo real são realizados 
pelo 8088 ou 80x86. Porém, quando ativa (N-r), os cálculos de tipo real, usando variáveis 
declaradas como single, double, extended e comp, são realizados pelo co-processador 
aritmético. 

DIRETTVA DE COMPILAÇÃO S 

Stack Overflow Checkmg (Defauit é S+) 

(Checagem de Overflow do Stack) 

Quando ativa, checa as condições de overflow do Stack. No Turbo 3.0, isto era 
controlado pela diretiva K. 

DIRETIVA DE COMPILAÇÃO T 

TPM File Generation (Defauit é T-) 

(Geração de Arquivo TPM) 

Se a diretiva estiver ativa, um arquivo tipo .TPM será gerado quando um 
programa for compilado no disco. 

DIRETIVA DE COMPILAÇÃO U 

Unit File Name (Sintaxe é {$U nomearq}) 

(Nome do Arquivo que contém a Unidade) 

Permite especificar o nome do arquivo onde se encontra a diretiva. 

O {$U nomearq} deve estar no comando Uses, logo depois do nome da unidade. 


NOVOS TIPOS ESCALARES DA VERSÃO 4.0 

Word 

Pode ser considerado como um inteiro sem sinal. Ocupa dois bytes, porém não 
usa o bit de maior ordem para sinal, fazendo com que os valores para o tipo word fiquem 
entre 0 e 65535, 
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Shortlnt 

O tipo Shortlnt (“inteiro curto”) pode ser considerado um byte com sinal. 
Ocupa somente um byte de memória e usa o bit mais elevado para sinal, fazendo com que 
os valores para o tipo Shortlnt fiquem entre—128 e 127. 

Longlnt 

Utiliza quatro bytes para armazenamento e tem uma faixa de valores entre 
-2.147.483.648 e 2.147.483.647. 


NOVOS TIPOS REAIS DA VERSÃO 4.0 

(somente aos permitidos na presença de um co-processador aritmético) 

Single 

Utiliza quatro bytes para armazenamento e é o menos preciso dos novos tipos 
reais. Sua faixa de valores varia entre 1.5E-45 e 3.4E+38. 

Double 

Ocupa oito bytes e varia entre 5.0E-324 e 1.7E308. 

Extended 

Ocupa dez bytes e varia entre -2E+63+1 e 2E+63-L 

Comp 

Tecnicamente este tipo é um real, porém comporta-se como um inteiro (e só 
poete armazenar inteiros). Ocupa oito bytes e varia entre—2E+63+1 e 2E+63-1. 


CONSTANTES 


A única diferença com a versão anterior é que agora as constantes tipadas são 
armazenadas no segmento de dados. 
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O OPERADOR 


O operador @ é usado para o tratamento de alocação de memória dinâmi ca e 
retoma o endereço, no formato de ponteiro, de uma variável declarada formalmente. Ele 
simplifica o uso de ponteiros quando usados para sobrepor outras variáveis na memória. 


ENTRADA E SAÍDA 


Existem algumas mudanças: 

. A versão 3.0 suportava os dispositivos CON:, TRM: e LST:. Na versão 4.0, 
foram substituídos pelos dispositivos CON (“console”: vídeo para saída e 

' * teclado para entrada), PRN, LPT1, LPT2 e LPT3 (referentes à impressora). 

. O dispositivo LST ainda funciona para saída na impressora se usado junto 
com a unidade Printer. 

. O Turbo Pascal 4.0 tem a capacidade de escrever diretamente na memória de 
vídeo ou usar as rotinas do BIOS quando usa a unidade Crt. Você controla o 
método usando a variável DirectVideo. Se DirectVideo for verdadeira 
(default), será usado acesso direto, caso contrário, serão usadas chamadas ao 
BIOS. 

. A utilização de uma nova função para leitura de um caractere pressionado no 
teclado. O Readkey retoma um caractere pressionado. Se a tecla gerar um 
código de “scan”, Readkey retomará # 0 e uma nova chamada a Readkey 
lerá o caractere seguinte ao código de “scan”. 


SERVIÇOS DO BIOS E D.O.S. 

TIPOS PREDEFTNIDOS NA UNIDADE DOS 


Registers = record 

case Integer of 
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0: (AX3X,CX,DX,BP,SI,DI ,DS,ES, Flags: Word); 

1: (ALv 4 lH3L3H,CL,CHJDL3>H : BYTE); 

END; 

FileRec = record 

Handle 

Word; 

Mode 

Word; 

RecSize 

Word; 

Private 

arrayfl-26] of Byte; 

UserDaía 

arrayf 1..16] of Byte; 

Name 

array[0„79] of Char, 

end; 

TextBuf = array[CL127] of Char, 

TextRec = record 

Handle 

Word; 

Mode 

Word; 

BufSize 

Word; 

Private 

Word; 

BufPos 

Word; 

BufEnd 

Word; 

BufPtr 

ATextBuf; 

OpenFunc 

Pointer, 

InOutFunc 

Pointer, 

FlushFunc 

Pointer; 

CloseFunc 

Pointer; 

UserData 

arraytI..16] of Byte; 

Name 

array(CL79] of Char, 

Buffer 

TextBuf; 

end; 

SearchRec = record 

HII 

anay[l„21] of Byte; 

Attr 

Byte; 

Time 

Loogmt; 

Size 

Longint; 

Name 

string£12]; 

end: 
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DateTime = record 

Year,Month, Day,Hour,Mm,Sec: Word; 
end; 


VARIÁVEL PREDEFINIDA 

Contém um código referente ao erro ocorrido, que é armazenado na variável inteira 

Dos Error: 

0 nenhum erro 

2 arquivo não foi encontrado 

3 path não encontrado 

5 acesso proibido 

6 handle inválido 

8 não há memória suficiente 

10 ambiente inválido 

11 formato inválido 

18 mais ne nhum arquivo 


PROCEDIMENTOS DE DATA E HORA 

GetDate(var Ano, Mes, Dia, DiaSemana: Word); 

Retoma a data do sistema nos parâmetros Ano, Mês, Dia, DiaSemana. O ano 
contém o século (1988 em vez de 88) é o DiaSemana varia de 0 a 6, sendo o domingo 
representado pelo 0. 

SetDate(Ano, Mes, Dia: Word); 

Ajusta a data do sistema O ano deve incluir o século (exemplo: 1988). Se os 
valores dos parâmetros estiverem errados, a data não será corrigida. 

GetTime(var, Hora, Min, Seg, DecSeg: Word); 

Retoma a hora do sistema nos parâmetros Hora, Min, Seg, DecSeg. 

SetTime(Hora, Mm, Seg, DecSeg: Word); 

Ajusta a hora do sistema. Se os valeres dos parâmetros estiverem errados, a hora 
não será corrigida. 
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GetFTime(var F; var Tempo: Longint); 

Lê a identificação de tempo do arquivo F. O conteúdo desta identificação, 
armazenado na variável Tempo, contém a data e hora do arquivo. Para decodificar o 
conteúdo de Tempo, deve-se usar o procedimento UnpackTime. 

SetFTime(var F; Tempo: Longint); 

Marca a identificação de tempo do arquivo F. Antes de chamar este 
procedimento, deve-se criar a variável Tempo usando o procedimento PackTime. 

UnpackTime(Tempo: Longint; var DT: DateTime); 

Interpreta a variável Tempo que contém data e hora de um arquivo. Este 
procedimento deve ser usado depois de GetFTime. 

PackTime(var DT: DateTime; var Tempo: Longint); 

Compacta os dados de data e hora para a variável Tempo. Isto é usado antes do 
procedimento SetFTime. 


FUNÇÕES DE CONSULTA SOBRE O ESPAÇO EM DISCO 
DiskFree(Drive: Byte): Longint; 

Retoma o espaço livre no disco contido em Drive (especificado por um número: 
0 - unidade em uso, 1 - unidade A, 2 - unidade B etc...). 

DiskSize(Drive: Byte): Longint; 

Retoma o espaço total do disco contido em Drive (especificado por um número: 
0 - unidade em uso, 1 - unidade A, 2 - unidade B etc. = ..). 

PROCEDIMENTOS PARA ARQUIVOS 

GetFAttr(var F; var Atrib: Word); 

Retoma o atributo da variável de arquivo F, que já deve ter sido associada (com 
Assign), mas não aberto. 

SetFAttr(var F; Atrib: Word); 

Ajusta o atributo da variável de arquivo F, que já deve ter sido associada (com 
Assign), mas não aberto. 




Diferenças entre as versões 3.0 e 4.0 


347 


FindFirst(Path: String; Atrib: Word; var F: SearchRec); 

Procura no diretório indicado por Path e retoma o primeiro arquivo normal ou 
arquivo que com atributos que se encaixem naqueles contidos em Atrib. 

FindNext(var F: SearchRec); 

Continua a. busca iniciada por FindFirst. A variável DosError conterá o valor 
18 quando não achar mais nenhum arquivo. Se nenhum atributo for indicado (ex.: 
atrib =0), estes procedimentos retomarão somente arquivos normais (aqueles sem 
atributos). 


GRÁFICOS DA VERSÁO 4.0 


Todos os programas escritos na versão 3.0 podem ser rodados na 4.0, se usarem 
a unidade Graph3. 

Além disto, a versão 4.0 ainda tem uma unidade chamada Graph com novas 
rotinas gráficas. 


CONSTANTES GRÁFICAS 
Códigos retornados em GraphResult: 


grOk 

= 

0; 

grNoImtGraph 

= 

-l; 

grNotDetected 

= 

-2; 

grFileNotFound 

= 

-3 

grlnvalidDriver 

= 

-4; 

grNoLoadMem 

= 

-5; 

grNoScanMem 

= 

-6; 

grNoFloodMem 

= 

-7; 

grFontNotFound 

= 


grNoFontMem 

= 

-9; 

grlnvalidMod 

= . 

-10 


grError =-11; {Erro genérico} 
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grlOerror 

= -12; 

grlnvalidFont 

= -13; 

grln validFontNum 

= -14; 

grlnvalidDeviceNum 

= -15; 


Define drivers gráficos 


Detect 

= 0; 

CGA 

= 1; 

MCGA 

= 2; 

EGA 

= 3; 

EGA64 

= 4; 

EGAMono 

= 5; 

RESERVED 

= 6; 

HercMono 

= 7; 

ATT400 

= 8; 

VGA 

= 9; 

PC3270 

= 10; 


{ativa detecção automática da placa em uso} 


Modos gráficos para cada driver 


CGACO 

= 0; 

CGAC1 

= 1; 

CGAC2 

= 2; 

CGAC3 

= 3: 

CGAHi 

MCGACO 

= 4: 

= 0; 

MCGAC1 

= 1; 

MCGAC2 

= 2; 

MCGAC3 

= 3; 


{ 320x200 palette 0: Verde Claro, Vermelho Claro, 
Amarelo; 1 página } 

{ 320x200 palette 1: Azul Ciano Claro, Magenta Claro, 
Branco; 1 página} 

{ 320x200 palette 2: Verde, Vermelho, Marrom; 

1 página} 

{ 320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 
1 página} 

{ 640x200: 1 página} 

{ 320x200 palette 0: Verde Claro, Vermelho Claro, 
Amarelo; 1 página} 

{ 320x200 palette 1: Azul Ciano Claro, Magenta Claro, 
Branco; 1 página} 

{ 320x200 palette 2: Verde, Vermelho, Marrom; 

1 página } . 

{ 320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 
1 página} 
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MCGAMed 

= 4 

{ 640x200: 1 página } 

MCGAHi 

= 5 

{ 640x480: 1 página } 

EGALo 

= 0 

{640x200: 16 cores; 4 páginas } 

EGAHi 

= 1 

{ 640x350: 16 cores; 2 páginas } 

EGA64Lo 

= 0 

{ 640x200 16 coses; 1 página} 

EGA64HÍ 

= 1 

{ 640x350 4 cores; 1 página} 

EGAMonoHi 

= 3 

{ 640x350 64K de memória na placa, 1 página; 256K, 



2 páginas} 

HercMonoHi 

= 0; 

{720x348; 2 páginas } 

ATT400CO 

= 0; 

{320x200 palette 0: Verde Claro, Vermelho Claro, 



Amarelo; 1 página} 

ATT400C1 

= 1; 

{320x200 palette 1: Azul Ciano Claro, Magenta Claro, 



Branco; 1 página} 

ATT400C2 

= 2; 

{320x200 palette 2: Verde, Vermelho, Marrom; 



1 página } 

ATT400C3 

= 3; 

{ 320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 



1 página} 

ATT400Med 

= 4 

{ 640x200: 1 página } 

ATT400HÍ 

= 5 

{640x400: 1 página} 

VGALo 

= 0 

{ 640x200: 16 cores; 4 páginas } 

VGAMed 

= 1 

{ 640x350: 16 cores; 2 páginas } 

VGAHi 

= 2 

{ 640x480: 16 cores; 1 página} 

PC3270HÍ 

= 0 

{ 720x350: 1 página } 

MaxColors 

= 15; 

Estilos de Linha e Espessaras para Get/SetUneStyle 

SolidLn 

= 0 


DottedLn 

= 1 


CenterLn 

= 2 


DashedLn 

= 3 


UserBitLn 

= 4 

{ Estilo de linha definido pelo usuário} 

NormWidth 

= 1 


ThickWidth 

= 3 

- 

Constantes para Set/GetTextStyie 

DefaultFont 

= 0 


TriplexFont 

= 1 
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SmallFont 

= 2; 


SansSerifFont 

= 3; 


GothicFont 

= 4; 


HorizDir 

= 0; 

{Da esquerda para a direita} 

VertDir 

= 1; 

{ De baixo para cima } 

UserCharSize 

= 0; 

{ Tamanho de caractere definido pelo usuário} 


Constantes para Clipping 

ClipOn = true; 

CiipOff = false; 

Constantes para Bar3D 

TopOn = true; 

TopOff = false; 

Padrões para Preenchimento com Get/SetFillStyle 

EmptyFill 
SolidFill 
LineFill 
LtSlashFill 
SlashFill 
BkSlashFill 
LtBkSlashFill 
HatchFill 
XHatchFill 
InterleaveFill 
WideDotFill 
CloseDotFill 
UserFill 

Operadores BitBlt para o Putlmage 


NoimalPut 

= 0; 

{MOV} 

XORPut 

= 1; 

{ XOR} 

OrPut 

= 2; 

{OR} 

AndPut 

= 3; 

{AM)} 

NotPut 

— 4; 

{NOT} 


= 0; { preenche área na cor de fundo } 

= 1; { preenche área com cores sólidas } 

= 2; { padrão — } 

= 3; { padrão / / / } 

= 4; { padrão /X/ com linhas grossas } 
= 5; { padrão \ W com linhas grossas } 
= 6; { padrão W\ } 

= 7; { hachura horizontal} 

= 8; { hachura diagonal } 

= 9; { padrão reticulado } 

= 10; { padrão pontilhado muito espaçado} 
= 11; {padrão pontilhado pcuco espaçado} 
= 12; {padrão definido pelo usuário } 
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Justificação Horizontal e Vertical para SetTextJustify 

LeftText = 0; 

CenterText = 1; 

RightText = 2; 

BottomText = 0; 

TopText = 2; 


TIPOS GRÁFICOS PREDEFINIDOS 

PaletteType = record 
Size : byte 

Colors : array [0. JvíaxColors] of shortint; 

end; 

LineSettingsType = record 
LineStyle : word; 

Pattem : word; 

Thickness : word; 
end; 

TextSettingsType = record 
Font : word 
Direction : word; 

CharSize : word; 

Horiz : word; 

Vert : word; 

end; 

FillSettingsType = record 
Pattem : word; 

Color : word; 
end; 

FiUPattemType = array[1..8] of byte; 

PointType = record 
X, Y: integer, 
end; 
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ViewPortType = record 

xl, yl, x2, y2 : integer, 
Clip : bookan; 

end; 

ArcÇoordsType = record 
X, Y : integer; 

Xstart, Ystart : integer, 
Xend, Yend : integer; 
end; 


VARIÁVEIS GRÁFICAS PREDEFINIDAS 

GraphGetMemPtr : Pointer; 
GraphFreeMemPtr : Pointer, 


PROCEDIMENTOS E FUNÇÕES GRÁFICAS 
(Necessitam de Uses Graph no programa) 

Funções de Manutenção de erros 

GraphErrorMsg (CodigoErro : integer): String; 

Retoma uma string contendo uma mensagem para o erro indicado por 
CodigoErro. 

GraphResult: Integer; 

Retoma um código de erro para a última operação realizada. 

Procedimentos e Funções para Detecção. Inicialização e Modos de Vídeo 

DetectGraph (var DriverGraf, ModoGraf: integer); 

Analisa qual placa de vídeo está sendo usada e recomenda o modo gráfico mais 
adequado. 


InitGraph var DriverGraf: integer; 

var ModoGraf : integer; 
DriverPatfa : String); 
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Inicializa o ambiente gráfico e entra em modo gráfico. Se o DriverGraf for 
Detect (0), o ImtGraph vai determinar qoal driver e qual modo devem ser 
usados. DriverPath indica qual o caminho (patfa) para o diretório onde os 
drivers gráficos se encontram. Deixa a posição atual no topo esquerdo da tela 
( 0 , 0 ). 

SetGraphMode (Modo : integer); 

Ajusta o ambiente gráfico para o Modo gráfico escolhido. Deixa a posição amai 
no topo esquerdo da tela (0,0). 

GetGraphMode: integer; 

Esta função retoma um valor inteiro que indica o modo gráfico atualmente em 
uso. 

GetModeRange (DriverGraf: integer; var LoMode^ HiMode: integer); 

Retoma os modos máximo e mínim o para um driver gráfico especificado. 

RestoreCrtMode; 

Retoma o modo da tela anterior para o modo gráfico. 

CIoseGraph; 

Volta a tela ao modo anterior e retira do heap todo as variáveis dinâmicas usadas 
pelo modo gráfico. 

GraphDefaults; 

Muda a posição atual para o topo esquerdo da tela (0,0) e inicializa todos os 
procedimentos gráficos (viewport, paiette 7 cores, características das linhas, 
textos gráficos etc.-). 

GetX : integer; 

Função que retoma a coordenada horizontal da posição atual, sempre relativa ao 
viewport em uso. Isto quer dizer que se GetX retomar 0, a posição será no lado 
esquerdo do viewport e não no lado esquerdo da tela. 

GetY : integer; 

Função que retoma a coordenada vertical da posição atual, sempre relativa ao 
viewport em uso. Isto quer dizer que se GetY retomar 0, a posição será no topo 
do viewport e não no topo da tela. 

GetMaxX : integer; 

Função que retoma o valor da coordenada horizontal do pixel no canto mais à 
direita. 
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GetMaxY. mteger; 

Função que retoma o valor da coordenada vertical do pixel no canto inferior. 

Rotinas de Tela e ViewPort 
ClearDevice; 

Apaga a tela atual deixa a posição atual no topo esquerdo do viewport (0,0). 

Set ViewPort (xl, yl, x2, y2 : integer; Clip : boolean); 

Define uma porção da tela, de xl, y 1 (canto superior esquerdo) até x2,y2 (canto 
inferior direito). Se Clip for verdadeiro, o clipping estará ligado. Depois do 
viewport ligado, todas as coordenadas estarão relacionadas com o viewport e 
não com as coordenadas físicas da tela. Deixa a posição atual no topo esquerdo 
( 0 , 0 ). 

GetViewSettings (var ViewPort: ViewPortType); 

Retoma uma variável-registro predefmida contendo os dados do viewport atual. 

ClearViewPort; 

Limpa o viewport e assume as cores da palette (0) para a tela. Deixa a posição 
atual no topo esquerdo da tela (0,0). 

SetActivePage (Pagina: word); 

Direciona toda saída da tela para a página indicada. Para fazer a página ser 
visualizada, use o procedimento SetVisualPage. 

SetVisualPage (Pagina : word); 

Troca a página gráfica visualizada na tela por aquela indicada na variável 


Rotinas de Manuseio de Pixels 

PutPixel (X, Y : mteger; Cor : word); 

Coloca um pixel na coordenada x, y. A cor é determinada pela variável cor. 

GetPixel (X, Y : integer) : word; 

Esta função retoma o valor da cor do pixel na coordenada x, y. 

Rotinas para Criação de Linhas 

Line To (X, Y : integer); 

Desenha uma linha da posição atual até x, y. 
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LineRel (Dx, Dy : integer); 

Desenha uma linha da posição atual até a posição relativa definida por Dx, Dy. 

MoveTo (X, Y : integer); 

Move a posição atual para a coordenada x, y. 

MoveRel (Dx, Dy : integer); 

Move a posição atual para uma nova posição deslocada Dx, Dy da original. 

Line (xl, yl, x2, y2 : integer); 

Desenha uma reta da coordenada xl, y 1 até x2, y2 

GetLineSettings (var InfoLinha : LineSettingsType); 

Retoma em InfoLinha (variável registro) três dados que determinam a aparência 
da linha desenhada. 

SetLineStyle EstiloLinha : word; 

Padrao : word^ 

Espessura : word); 

Define o estilo da linha, o padrão e a espessura a serem usados ao desenhar uma 
linha. 

Rotinas para Criação de Polígonos, Figuras e Preenchimento de Áreas 
Rectangle (xl, yl, x2, y2 : integer); 

Desenha um retângulo da coordenada xl, yl (canto superior esquerdo) até a 
coordenada x2, y2 (canto inferior direito), usando o estilo de linha e cor atuais. 

Bar (xl, yl, x2, y2 : integer); 

Desenha um retângulo da coordenada xl, yl (canto superior esquerdo) até a 
coordenada x2, y2 (canto inferior direito), pneenchendo-o com o padrão 
(pattem) selecionado com SetFUlStyle. 

Bar3D (xl, yl, x2, y2 : integer; Prof: word; Topo : booftean); 

Desenha um retângulo da coordenada xl, yl (canto superior esquerdo) até a 
coordenada x2,y2 (canto inferior direito), preenchendo-o com o padrão (pattem) 
selecionado com SetFUlStyle. 

DrawPoly (NumPontos : word; var PontosPoly); 

Desenha uma poligonal que liga os pontos definidos na matriz PontosPoli 
(matriz tipo registro com campos para X e Y do tipo word). A quantidade de 
pontos é definida em NumPontos. Em caso de coordenadas erradas na matriz, 
GraphResult retomará o valor -6. 



356 Turbo Pascal Avançado 


FillPoly (NumPontos : word; var PontosPolig); 

Desenha uma poligonal que liga os pontos definidos na matriz PontosPolig 
(matriz tipo registro com campos para X e Y do tipo word), preenchendo-a com 
o padrão e a cor definidos por SetFillPatern, SetFillStyle e SetColor. A linha 
que limita o polígono é desenhada de acordo com o estilo de linha e cor atuais e 
deve estar perfeitamente fechada. A quantidade de pontos no polígono é 
definida em NumPontos. Em caso de coordenadas erradas na matriz, 
GraphResult retomará o valor-6. 


GetFiilSettings (var InfoFill : FillSetímgsType); 

Retoma um registro do tipo FIDSettiiigsType contendo dois parâmetros Pattern 
e Color, que indicam o tipo de hachura e a cor atuais. 

SetFillStyle (Padrao : word; Cor : word); 

Escolhe uma cor e um padrão de preenchimento (12 predefinidos indo de 0 a 

11 ). 

SetFillPattern (Padrao : FillPatternType; Cor : word); 

Define um padrão e uma cor a serem usadas em preenchimento de áreas gráficas. 
Padrao é uma variável do tipo predefinido FillPatternType (uma matriz de bytes 
com 8 elementos) que gera um padrão de 8x8 pixels, sendo um pixel para cada 
bit do byte. 

GetFillPatem (var PadraoFill: FillPatternType); 

Retoma o último padrão usado por SetFillPattern 

FloodFill (X, Y : integer; Border : word); 

Preenche a área fechada pela linha de cor Borda. Esta área deve conter o ponto 
de coordenada x, y. 

SetGraphBufSize (TamBuf: word); 

Permite mudar o tamanho do buffer (TamBuf) reservado para preenchimento de 
áreas. 


botinas de Arcos, Círculos e outras Curvas 

Àrc (X, Y : integer; Anglnic, AngFinal, Raio : word); 

Desenhe um arco com centro em x, y, de raio especificado em Raio O arco 
começa em Anglnic e termina em AngFinal, sendo desenhado sempre no 
sentido anti-horário (ângulo 0 equivale a leste ou 3:00 horas). 
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GetArcCoords (var CoordArco : ArcCoordsType); 

Retoma uma variável-registro contendo ciados sobre o último arco criado pelo 
procedimento Are, dados estes que podem ser usados para criar uma “fatia” em 
gráficos de torta (ao ligar linhas do centro do arco para as suas extremidades). 

Cirde (X, Y : integer; Raio : word); 

Desenha um círculo de centro em x, y e raio especificado. 

Ellipse (X, Y : integer; 

AngiNic, AngFinal : word; 

XRaio, YRaio : word); 

Produz uma elipse de centro em x, y. O desenho começa em Anglnic e ter mina 
em AngFinal, e a elipse toma-se mais alongada quanto maior for a diferença 
entre XRaio e YRaio. Além disto, é desenhada sempre no sentido anti-horário 
(ângulo 0 equivale a leste ou 3:00 horas). 

GetAspectRatio (var Xasp, Yasp : word); 

A razão de aspecto é a razão entre os pixels horizontais e verticais que produz 
uma imagem bem proporcionada na tela. Depois de chamar GetAspectRatio 
divida Xasp por Yasp para determinar a razão de aspecto do seu equipamento. 

PieSlice (X, Y : integer; Anglnic, AngFinal, Raio : word): 

Desenha uma ‘‘fatia” para um gráfico tipo torta, com centro em x, y-e raio 
determinado em Raio. O desenho começa em Anglnic e termina em AngFinal, 
sempre em sentido anfi-hocário (ângulo O equivale a leste ou 3:00 horas). A 
“fatia” será preenchida com o padrão e a cor definidos em SetFlUStyle e 
SetFiUPattern. 

ROTINAS PARA PALETTES E CORES 
SetBkColor (Cor: word); 

Escolhe a cor de fundo indicada por Cor. SetBKColor (0) muda a cor de fundo 
para preto. 

SetColor (Cor : word); 

Deixa a cor para desenho valendo Cor. 

GetBkColor : word; 

Esta função retoma um número que indica a cor de fundo atual. 
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GetColor: word; 

Esta função retoma um número que indica a cor atual. 

GetMaxColor: word; 

Esta função retoma o número máximo da cor que pode ser passada como 
parâmetro em SetColor. 

SetAHPalette (var Palette); 

Troca os dados da palette atual por aqueles contidos na variável-registro 
predefinida Palette. 

SetPaiette (NumCor : word; Cor : shortint); 

Altera a cor de número NiimCor para a definida em Cot, permitindo alterar o 
padrão da palette. 

GetPalette (var Palette : PaletteType); 

Retoma os valores atuais da palette n uma variável tipo registro predefinida com 
dois campos: Size que indica o número de cores na palette e Colors que contém 
as cores da palette. 


ROTINAS DE MANUSEIO DE BLOCOS DE PIXELS 

ImageSize (xl, yl, x2, y2 : integer): word; 

Esta função retoma a quantidade de memória necessária para armazenar a 
imagem definida em xl, yl e x2, y2. 

Getlmage (xl, yl, x2, y2: integer; var BitMap); 

Captura a imagem contida em xl, yl (canto superior esquerdo) e x2, y2 (canto 
inferior direito) no buffer BitMap. Este buffer tem de ser pelo menos do 
tamanho definido “mais quatro”. 

Putlmage (X, Y : integer; var BitMap; BitBlt: word); 

Transfere a imagem contida no buffer BitMap para a tela na coordenada x, y, 
sem fazer “clipping” (ou seja: se a imagem sair fora do limite, não será 
transferida), BitBlt indica como a imagem deve ser transferida, de acordo com 
as constantes predefinidas NormalPut (MOV), XORPut (XOR), OrPut (OR), 
AndPut (AND) e NotPut (NOT). 
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Rotinas para Textos no Modo Gráfico 

GetTextSettings (var InfoText: TextSettingsType); 

Retoma os dados a respeito do estilo do tipo de letra atual. Os valores são 
retomados dentro de uma variável-registro de tipo prèdefinido e dizem respeito a 
tipo escolhido, direção, tamanho e justificação horizontal ou vertical. 

OutText (StringTexto : string); 

Escreve a string contida em StringTexto na posição atual da tela gráfica. 

OutTextXY (X, Y : integer; StringTexto : string); 

Escreve a string contida em StringTexto na posição x,y da tela gráfica. Não 
atualiza a posição atual e não faz “clipping” com caracteres gráficos default. 

SetTextJustify (Horiz, Vert: word); 

Determina a maneira como o texto vai ser escrito em relação à posição atual. 
Existem constantes predefinidas para valores horizontais (LeftText, CenterText 
e RightText) e verticais (BottomText, CenterText e TopText). 

SetTextStyle (Font, Direcao : word; TamCarac : word); 

Define a maneira como o texto vai ser mostrado na tela. Existem cinco tipos de 
letras disponíveis (de 0 a 4, sendo que do 1 ao 4 ficam armazenados em disco). 
Existem constantes predefinidas para serem usadas como valor para Font 
(DefaultFont, TriplexFont, SmallFont, SansSerifFont e GothicFont), outras para 
Direcao (HorizDir e VertDir) e também para o tamanho do caractere dado por 
TamCarac. 

TextHeight (StringTexto : string) : word; 

Esta função retoma a altura em pixels da string contida em StringTexto. A 
altura depende da fonte em uso. 

TextWidth (StringTexto : string) : word; 

Esta função retoma o comprimento em pixels da string contida em StringTexto 
(depende da fonte em uso). 

SetUserCharSize (MultX, DivX, MultY, DivY : byte); 

Permite alterar o comprimento ou altura para alguns tipos de letras. 
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FUNÇÕES ESPECIAIS 

RegisterBGIfont (font: pointer): integer; 

Esta função retoma um número inteiro que pode indicar se houve um erro 
(número negativo), ou retoma o número do tipo de letra atual. 

RegisterBGIdriver (driver : pointer) : integer; 

Esta função retoma um número inteiro que pode indicar se houve um eno 
(número negativo), ou retoma o número do driver atual. 


PROCEDIMENTOS PARA INTERRUPÇÕES, PROGRAMAS 
RESIDENTES E SAÍDAS PARA O D.O.S. 

DosExitCode: Integer 

Esta função retoma o código de saída de um subprocesso. O byte mais elevado 
do inteiro será 0 para terminação normal, 1 para terminação forçada por 
CTRL-C e 3 quando terminada pelo procedimento keep. 

GetlntVec (Numlnt: Byte; var Vetor: Pointer); 

Retoma o endereço usado atualmente pela interrupção Numlnt no parâmetro 
Vetor, 

SetlntVec (Numlnt: Byte: Vetor: Pointer); 

Troca o endereço atual da interrupção Numlnt pelo endereço contido em Vetor. 

Keep (CodSaida: Word); 

Permite terminar o programa e deixá-lo residente em memória. CodSaida 
contém o código de saída do DOS depois de terminada a execução do programa. 

Exec (PathCommandCom, Comando: String); 

Permite a saída do seu programa para o sistema operacional. 

PathCommandCom deve indicar o caminho e o nome do Command.Com em 
seu disco. Comando deve conter a ordem a ser dada no sistema operacional, se 
Comando contiver uma string vazia, o Turbo Pascal deixará executar comandos 
diretamente no prompt do sistema operacional. Neste caso, para retomar ao 
programa em Pascal, digite EX1T. 
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MENSAGENS DE ERRO DO TURBO 4.0 


Houve mudanças referentes às mensagens de erro na execução e erros de 
Entrada e Saída (I/O): 

- Erros de Entrada e Saída são considerados como erros na execução. 

- Os códigos dos erros vêm diretamente do DOS. 


Erros na Execução (Run-Tfme Errors) 


Decimal 

1 

2 

3 

4 

5 

6 
8 

12 

15 

16 
17 
100 
101 
102 

103 

104 

105 

106 
200 
201 
202 

203 

204 

205 


Significado 

Código de função para DOS errado 
Arquivo não encontrado 
Path (caminho) não encontrado 
Muitos arquivos abertos 
Negado acesso ao arquivo 
Handle inválido para o arquivo 
Pouca memória 

Código inválido de acesso ao arquivo 

Número inválido do drive 

Não pode remover o diretório atual 

Não pode trocar nomes entre discos 

Erro na leitura do disco 

Erro na gravação em disco 

Arquivo não assinalado 

Arquivo fechado 

Arquivo fechado para entrada 

Arquivo fechado para saída 

Formato numérico inválido 

Divisão por zero 

Erro na checagem de faixa 

Erro de overflow no Stack 

Erro de overflow no Heap 

Operação de pointer (ponteiro) inválida 

Overflow de ponto-flutuante 
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TOOLBOXES E A VERSÃO 4.0 


Existem algumas mudanças com relação aos toolboxes. Todos eles foram 
adaptados para as novas características do Turbo Pascal 4.0 (formato usando Units, uso do 
80x87 etc...). As mudanças, porém, não afetam a sintaxe das chamadas para manter o 
máximo de compatibilidade. 

. Numerical Methods Toolbox - aceita compilação com 80x87 (se presente). 

. Editoras Toolbox - rotinas reescritas para dar maior velocidade. Processador 
de textos Microstar completamente reescrito e melhorado. Fornece um editor 
totalmente escrito em assembly que pode ser incluído em qualquer programa 
com o comando Uses. 

. Graphix Toolbox - As rotinas Inline foram convertidas para arquivos 
externos que devem ser lincados com a diretiva ($L). 

. DataBase Toolbox - Suporta arquivos de banco de dados com mais de 2 
bilhões de entradas. Inclui rotinas para ler ou gravar arquivos no formato 
usado pelo Reflex (banco de dados comercializado pela Borland). 





AMBIENTE DE TRABALHO 

Para selecionar um item do menu é só deslocar o cursor com as setas (o fundo da 
opção selecionada fica reverso) ou digitar o primeiro caractere. 

OPÇÕES DO MENU PRINCIPAL 

FILE (arquivo) 

• LOAD (carregar) — Lê um arquivo do disco para o Editor. Se o arquivo não exis¬ 
tir, será criado. 

• PICK (pegar) — Permite a escolha de um arquivo entre os oito últimos arquivos 
editados recentemente. 

• NEW (novo) — Limpa o editor e deixa o nome do arquivo como NONAME.PAS. 

• SAVE (salvar) — Grava o arquivo da memória para o disco. 

• WRITE TO (escreva em) — Escreve o conteúdo do Editor num arquivo indicado 
pelo usuário. 

* Apêndices B e C elaborados por Roberto Bertini Renzetti 
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• DIRECTORY (diretório) — Somente mostra o diretório, de acordo com uma más¬ 
cara especificada. 

• CHANGE DER (mudar de diretório) — Permite mudar o drive ou diretório atual. 

• OS SHELL (ambiente do Sistema Operacional) — Sai do Turbo Pascal e volta 
temporariamente para o Sistema Operacional, onde pode-se executar qualquer 
comando ou executar alguns programas. Para voltar ao Turbo é só digitar EXTT. 

• QUEE (sair) — Sai do Turbo Pascal, voltando para o Sistema Operacional. 

EDIT (editar) 

Permite a edição de programas. Para voltar ao menu principal, tecle A KD ou FIO. 

RUN (correr, executar) 

• RUN — Completa, “linca” e executa seu programa. 

• PROGRAMRESET — Termina a depuração do programa, livra memória e fecha 
arquivos abertos. 

• GO TO CURSOR (vá para o cursor) — Permite executar o programa a partir da 
posição do cursor de edição. 

• TRACE INTO — Executa o próximo comando do seu programa ou subprograma 
(procedimento ou função). 

• STEP OVER — Executa o próximo comando do seu programa. Os subprogramas 
chamados serão executados de uma só vez. 

• USER SCREEN (tela do usuário) — Permite visualizar a tela de saída do programa 
que está sendo executado pelo depurador ou que já foi executado pelo programa. 

COMPILE (compilar) 

• COMPILE (compilar) — Compila e “linca” o programa-fonte. 

• MAKE (fazer) — Compila o arquivo, checando se alguma unidade (unit) foi alte¬ 
rada desde a última compilação. Se foi alterada, será recompilada. 
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• BUILD (construir) — Funciona de maneira semelhante à opção MAKE, porém 
forçando a recompilaçào das unidades. 

• DESTINATION (destinação) — Permite selecionar a destinação do arquivo com¬ 
pilado entre memória e disco. 

• FIND ERROR (achar erro) — Pode-se achar um erro de execução (run-time error) 
dando o endereço na forma XXXX: YYYY onde XXXX é segmento e YYYY o 
offset. 

• PRIMARY FILE (arquivo primário ou prinçipal) — 0 mesmo que o “Main File” 
na versão 3.0. O Turbo sempre começa a compilação por este arquivo. 

• GET INFO (recuperar informação) — Mostra informações a respeito do arquivo 
sendo trabalhado. 

OPTIONS 

• COMPILER (compilador) — Permite a inserção de diretivas de compilação sem 
escrevê-las no programa-fonte. Também usado para selecionar necessidades de 
memória para seu programa, permitir (se necessário) que UNITS sejam transfor¬ 
madas em overlays e gerenciar a emulação ou não do co-processador aritmético, 
entre outras coisas. 

• LINKER — Permite ajustar opções do linker (lincador) como ligar ou desligar o 
envio de informações a arquivos mapa (.MAP) e também especificar se o buffer de 
lincagem será na memória (maior velocidade) ou no disco (menor velocidade de 
lincagem). 

• ENVIRONMENT (ambiente) — Permite a seleção das opções de gravação auto¬ 
mática da configuração do Turbo Pascal e do arquivo editado, criação de cópias 
de segurança dos arquivos-fontes, seleção da quantidade de linhas para tela (25,43 
ou 50 dependendo da sua placa gráfica), tamanho e visualização de janelas para 
Edit, Watch e Saída. 

• DIRECTORIES (diretórios) — mostra ao Turbo em qual diretório devem ser pro¬ 
curados e/ ou gravados os arquivos (programas-fontes, arquivos de inclusão, uni¬ 
dades e arquivos-objetos). 

• PARÁMETERS (parâmetros) — Permite a especificação de parâmetros para 
quando o programa for compilado em memória. 
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• SAVE OPTIONS (opções para salvar) — Grava a configuração atual do Turbo 
Pascal para um arquivo em disco. 

• RETRIEVE OPTIONS (opções para recuperar) — Carrega um arquivo de confi¬ 
guração do Turbo Pascal. 

DEBUG (depurar, achar erros) 

• EVALUATE (avaliar) — Permite ver o valor atual de uma variável ou expressão 
(podendo até ser usado como calculadora se você não estiver depurando o progra¬ 
ma) e também permite alterar este valor. Podem ser usados especificadores de for¬ 
mato {formai specifiers) para controlar melhor a visualização do conteúdo das 
variáveis. 

• CALL STACK (chamar o Stack) — Permite visualizar, durante a depuração, as 
chamadas de procedimentos e funções (com seus parâmetros) realizadas para levá-lo 
a posição atual no programa. 

• FIND PROCEDURE (adie o procedimento) — Permite achar um procedimento 
ou função no seu programa, mesmo que estejam em alguma Unit ou num Arquivo 
de Inclusão. 

• INTEGRATED DEBUGGING (depuração integrada) — Permite ligar ou desligar 
a depuração dentro do ambiente do Turbo Pascal. 

• STAND-ALONE DEBUGGING — Permite a inclusão de informações no arquivo 
compilado em disco (.EXE) para futura depuração com o Turbo Debugger da 
Borland. 

• DISPLAY SWAPPING (troca de telas) — Permite controlar como será feita a vi¬ 
sualização da tela durante a depuração. 

• REFRESH DISPLAY (refazer a tela) — Refaz a tela do ambiente do Turbo 
Pascal. 

BREAK/WATCH 

• ADD WATCH — Permite especificar uma variável e ter seus valores observados 
na janela Watch durante a depuração de um programa. 
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• DELETE WATCH — Permite deletar a expressão que está sendo observada na ja¬ 
nela Watch. Também podem ser usadas as teclas Del ou CTRL-Y dentro da janela 
Watch para apagar a expressão desejada. 

• EDIT WATCH — Permite editar a expressão que está sendo observada. 

• REMOVE ALL WATCHES — Todas as expressões da janela Watch. 

• TOGGLE BREAKPOINT — Liga ou desliga um ponto de parada ( breakpoini ) na 
linha atual. 

• CLEAR ALL BREAKPOINTS — Retira todos os pontos de parada ( breakpoints) 
do programa. 

• VIEW NEXT BREAKPOINT — Leva o cursor até o próximo ponto de parada 
sem executar o programa. 


UNITS 


São unidades de código que contêm procedimentos e funções e são compiladas sepa¬ 
radamente do programa principal. A vantagem de se usar as “Units” é que não é necessário 
recompilar o programa inteiro após uma pequena alteração, somente recompila-se a “Unit” 
afetada. 


Existe também a possibilidade de compilar, testar e debugar uma unidade separada¬ 
mente do programa principal. Uma vez testada e compilada, a unidade não precisará mais ser 
compilada. Em vez disso, a unidade será lincada com o programa que a use. Linear uma uni¬ 
dade é mais rápido que compilá-la. 

As unidades são exatamente como programas e possuem o seguinte formato: 

• linha com o nome da unidade, que deve ser o mesmo nome do arquivo. 

• uma seção de interface, área que se conecta com outros programas ou unidades — 
contendo o cabeçalho dos procedimentos e funções, variáveis globais e o uso de 
outras unidades. 

• seção de implementação, contendo o corpo dos procedimentos e funções anuncia¬ 
dos na seção de interface e variáveis globais de uso interno pela unidade. 
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Ao necessitar de alguns procedimentos ou funções, contidos numa unidade, chame-os 
com o comando Uses. 


UNITS COMPILADAS 


As unidades podem ser compiladas da mesma maneira que os programas. Uma vez 
compiladas, serão armazenadas pelo Turbo num arquivo de mesmo nome que a unidade, 
porém com terminação .TPU. 


UNITS PREDEFINIDAS 


Existem oito unidades já disponíveis que são: Crt, Dos, Graph, Graph3, Overlay, 
Printer, System, Turbo3. 

A seguir veremos os procedimentos e funções definidos nestas unidades. Se você for 
utilizar um ou mais destes comandos UTILIZE O COMANDO Uses SEGUIDO DO NOME 
DA UNIDADE, APÓS A ÁREA DO CABEÇALHO DO SEU PROGRAMA. 


UNIT system 


COMANDOS E FUNÇÕES 

Abs, Addr, Append, ArcTan, Assign, BlockRead, BlockWrite, CSeg, ChDir, Chr, 
Close, Concat, Copy, Cos, DSeg, Dec, Delete, Dispose, Eof, Eof, Eoln, Erase, Exit, Exp. 
FilePos, FileSize, FillChar, Flush, Frac, FreeMem, GetDir, GetMem, Halt, Hi, IOResult, Inc. 
Insert, Int, Length, Ln, Lo, Mark, MaxAvail, MemAvail, MkDir, Move, New, Odd, Ofs, 
Ord, ParamCount, ParamStr, Pi, Pos, Pred, Ptr, Randomize, Random, Readln, Read, 
Release, Rename, Reset, Rewrite, RmDir, Round, SPtr, SSeg, SeekEof, SeekEoln, Seek, Seg, 
SetTextBuf, Sin, SizeOf, Sqrt, Sqr, Str, Succ, Swap, Truncate, Trunc, UpCase, Vai, Writeln, 
Write. 
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VARIÁVEIS 

ErrorAddr, ErrorCode, ExitProc, FileMode, FresMin, FreePtr, HeapError, 
HeapOrg, HeapPtr, InOutRes, Input, Output, OvrCodeList, OvrDebugPtr, OvrDosHandle, 
OvrEmsHandle, OvrHeapEnd, OvrHeapOrg, OvrHeapPtr, OvrHeapSize, OvrLoadList, 
PrefixSeg, RandSeed, SaveíntOO, Savelnt02, SavelntlB, Savelnt23, Savelnt24, Savelnt34, 
Savelnt35, Savelnt36, Savelnt37, Savelnt38, Savelnt39, SaveInt3A, SaveInt3B, SaveInt3C, 
SaveInt3D, SaveInt3E, SaveInt3F, Savelnt75. StackLimit, Test8087. 


UNIT crt 

COMANDOS E FUNÇÕES 

AssignCrt, ClrEol, ClrScr, DelLine, Delay, GotoXY, HighVideo, InsLine, KeyPressed, 
LowVideo, NoSound, NormVideo, ReadKey, Sound, TextBackground, TextColor, TextMode, 
WhereX, WhereY, Window. 


VARIÁVEIS 

CheckBreak, CheckEof, CheckSnow, DirectVideo, LastMode, TextAttr, WindMin, 
WindMax. 


UNIT dos 


COMANDOS E FUNÇÕES 

DiskFree, DiskSize, DosExitCode, DosVeision, EnvCount, EnvStr, Exec, FExpand, 
FSplit, FlndFirst, FindNext, GetCBreak, GetDate, GetEav, GetFAttr, GetFTime, GetlntVec, 
GetTime, GetVerify, Intr, Keep, MsDos, PackTune, SetCBreak, SetDate, SetFAttr, SetFTime, 
SetlntVec, SetTime, SetVerify, SwapVectors, UnPackTime. 
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VARIÁVEIS 

DosError. 


UNIX graph 


COMANDOS E FUNÇÕES 

Arc, Bar3D, Bar, Circle, ClearDevice, ClearViewPort, QoseGraph, DeteaGraph, 
DrawPoly, Ellipse, FillPoly, FloodFill, GetArcCoords, GetAspectRatio, GetBkColor, 
GetColor, GetDriverName, GetFillPattern, GetFillSettings, GetGraphMode, Getlmage, 
GetLineSettings, GetMaxCoior. GetMaxMode, GetMaxX, GetMaxY, GetModeName, 
GetModeRange, GetPaletteSize, GetPixel, GetTextSettings, GetViewSettings, GetX, GetY, 
GraphDefaults, GraphErrorMsg, GraphResult, ImageSize, InitGraph, InstallUserDriver, 
InstallUserFont, LineRel, LineTo, Line, MoveRel, MoveTo, OutTextXY, OutText, PieSlice, 
Putlmage, PutPixel, Rectangle, RegisterBGIdriver, RegisterBGIfont, RestoreCrtMode, 
Sector, SetActivePage, SetAllPalette, SetAspectRatio, SetBkColor, SetColor, SetFillPattern, 
SetFilIStyie, SetGraphBufSize, SetGraphMode, SetLineStyle, SetPalette, SetRGBPalette, 
SetTextJustify, SetTextStyle, SetUserCharSize, SetViewPort, SetVisualPage, SetWriteMode, 
TextHeight, TextWidth. 


VARIÁVEIS 

GraphGetMemPtr, GraphFreeMemPtr. 


UNIT graph3 


Esta unidade permite usar os mesmos comandos gráficos existentes na versão 3.0. 
Nota: os gráficos da versão 4.0 (definidos na unit Graph) são mais velozes. 


Versão 5.0 


371 


UNIT overlay 

COMANDOS 

OvrClearBuf, OvrGetBuf, Ovrínit, OvrlnitEMS, OvrSetBuf. 


VARIÁVEIS 

OvrResult 


UNIT printer 


Esta unidade só define Lst como sendo um arquivo de texto já direcionado para a 
impressora. 


UNIT turbo3 


Criada para manter compatibilidade dos programas com a versão 3.0. 


PALAVRAS RESERVADAS DO TURBO PASCAL 40 e 5.0 


Implementation 

Declara o começo da seção de implementação numa Unit. A seção de implementação 
contém o corpo das rotinas declaradas na seção de interface. Só é necessário indicar o nome da 
rotina e seu corpo e não os parâmetros (indicados sempre na seção de interface). 
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Interface 

Declara o começo da seção de interface numa Unit. A seção de interface contém o 
cabeçalho das rotinas (procedimentos e funções) e seus parâmetros, que serão “visíveis” a 
outros programas e unidades que utilizam a unidade atual. 

Intemipt 

Declara um procedimento como um procedimento de interrupção. Ex.: 

Procedure handler (Flags, CS, IP, AX, BX, CX, DX, SI, Dl, DS, ES, BP: word); 

Interrupt; 


Unit 

Declara que o arquivo é uma Unit. 

Uses 

Declara quais unidades serão acessadas pelo programa ou unidade. 


DIRETIVAS DE COMPILAÇÃO DO TURBO 5.0 

(Existe diferença entre as diretivas das Versões 3.0, 4.0 e 5.0.) 


Diretiva de Compilação {$A } 

Align Data (Default é {$À}, escopo global) 

(Alinhar Dados) 

Faz alinhamento de words para variáveis e tipos de dados, agilizando assim o tempo 
de execução do programa em máquinas que usem microprocessadores da família 80x86. 
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Diretiva de Compilação {$B } 

Short-circuit Boolean Evaluation (Default é{SB—}, escopo local) 

(Avaliação Booleana Rápida) 

Reduz o tempo que o computador leva para determinar se uma expressão é verda¬ 
deira ou falsa. 

Diretiva de Compilação {$D } 

Debug Information (Default é {D+}, escopo global) 

(Informação para Debug) 

Quando ativa, gerará informações relacionando o programa-fonte com o programa- 
objeto. Se ocorrer um erro na execução (nm-time error), o Turbo Pascal usará esta informa¬ 
ção para localizar o erro no programa-fonte. Se o fonte for uma Unit, as informações serão 
anexadas no arquivo compilado .TPU, aumentando assim o tamanho do objeto. 

Diretiva de Compilação {$E } 

Emulation (Default é {$E+}, escopo global) 

(Emulação do 80x87) 

Permite a lincagem no seu programa de bibliotecas que emularão o co-processador 
aritmético 80x87, quando este não estiver presente na máquina. Veja também a diretiva 
{SN+}. 


Diretiva de Compilação {$F } 

Force Far Calls (Default é {$F—}, escopo local) 

(Força Chamadas Distantes) 

Todas as chamadas a procedimentos e funções são geradas como “chamadas distan¬ 
tes” (far calls), quando esta diretiva estiver ativa. Quando for compilar programas ou units 
com overlays ou variáveis procedurais, a Borland sugere usar a diretiva {$F-h}. 

Diretiva de Compilação {SI } 

Input/ Output Checking (Default é {$1+}, escopo globafi 
(Checagem de Entrada e Saida) 


Faz o programa parar ou não se houver um erro de entrada ou saída. Com {SI —} o 
programa não pára e o código do erro de entrada e saída será armazenado na função IOResult 
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Diretiva de Compilação {SI nome-do-arquivo} 

Inciude File (escopo local) 

(Arquivo de Inclusão} 

Permite incluir um arquivo (de extensão .PAS) na compilação de um programa, 
contanto que a diretiva não esteja colocada na área de comandos (entre BEGIN e END). 

Diretiva de Compilação {$L } 

Local Symbol Information (Default é {SL+}, escopo global) 

(Informações sobre Simbolos Locais) 

Controla a geração ou não de informações sobre símbolos locais (nomes e tipos de 
todas as variáveis locais e constantes). 

Em uma Unit, as informações serão anexadas no arquivo compilado .TPU, aumen¬ 
tando assim o tamanho do objeto. 

Diretiva de Compilação {SL nome-do-arquivo} 

Link Object File (escopo local) 

(Linear Arquivo-Objeto) 

Permite linear um arquivo-objeto (extensão .OBJ) em subprogramas declarados 
como externai. 

Diretiva de Compilação {ÍM } 

Memory Allocation Szes 

(Sintaxe é {$M EspaçoStacL HeapMin, HeapMax}) 

(Default é {$M 16384, 0, 655360}, escopo global) 

(Espaços para Alocação de memória) 

Permite escolher a quantidade de espaço disponível para o Stack e o Heap. O estado 
default é {$M 16384, 0, 65536G}, que significa 16 K para o Stack. Memória mínima para o 
Heap é 0 K e máxima é 640 K. 

EspaçoStack pode ter valor inteiro entre 1024 a 65520. HeapMin pode variar entre 0 
a 655360 e HeapMax varia entre HeapMin a 655360. 

Não tem efeito nenhum em Units. 
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Diretiva de Compilação {SN } 

Numeric Processing (Defanlt é {SN—}, escopo global) 

(Processamento numérico) 

{SN—} faz com que o programa compilado utilize rotinas em software para execução 
das operações de ponto flutuante. Já a diretiva {SN +} faz com que o programa compilado use 
o co-processador aritmético 80x87 para executar operações com ponto flutuante (desde que 
utilizem os tipos próprios como single, double, extended, comp). 

Veja também a diretiva {SE-f}. 

Diretiva de Compilação {SO } 

Orerlay Code Generation (Defanlt é {SO—}, escopo global) 

(Geração de Gverlay) 

Permite a geração de overlays (se necessário) a partir da compilação de uma Unit 
quando a diretiva de compilação for {SO+}. 

Veja também a diretiva {SF+}. 

Diretiva de Compilação {SO nome_unit} 

Overiay Unit Name (escopo local) 

(Tomar Unit em Overiay) 

A diretiva {SO nome_da_unit} permite especificar no programa qual unit deve ser 

compilada e transformada em overiay. Extensão compilada com a diretiva {SO+} e o uso da 
diretiva {SO nome_da_unit} deve ser feita em seguida à área do Uses no programa. 

Diretiva de Compilação {SR } 

RangeChecking (Defanlt é {SR—}, escopo global) 

(Checagem de Faixa) 

Permite a geração de código para checagem de faixas para índices de matrizes e strings 
e também atribuições a variáveis escalares. Faz o programa ficar mais extenso e mais lento, 
porém, se um erro de faixa acontecer, será exibida uma mensagem indicando-o. 
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Diretiva de Compilação {$S } 

Stack Overflow Checking (Default é {S + }, escopo local) 

(Checagem de Overflow do Stack) 

Quando ativa, checa as condições de overflow do Stack. Uma mensagem de erro será 
apresentada se o procedimento ou função compilados com {SS + } forem chamados e não 
houver espaço no Stack. 

Diretiva de Compilação {$V } 

Var-String Checking (Default é {SV + }, escopo local} 

(Checagem de Variáveis String) 

Controla a checagem das strings passadas como parâmetros em procedimentos ou 
funções, exigindo que os parâmetros formais (nas definições dos procedures) e atuais (nas 
chamadas aos procedimentos) sejam absolutamente idênticos. 


NOVOS TIPOS ESCALARES DA VERSÃO 4.0 e 5.0 

WORD 


Inteiro sem sinal. Ocupa dois bytes, e permite valores entre 0 e 65535. 


SHORTINT 

O tipo Shortlnt (“inteiro curto ') ocupa somente um byte de memória e permite 
valores entre -128 e 127. 


LONGINT 

Utiliza quatro bytes para armazenamento e tem uma faixa de valores entre - 2.147.483.648 
a 2.147.483.647. 
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NOVOS TIPOS REAIS DA VERSÃO 40 

(Somente permitidos na presença de um co-processador aritmético ou se a diretiva de emulação 
do co-processador estiver ligada.) 

SINGLE 

Utiliza quatro bytes para armazenamento e permite valores entre 1.5E-45 a 3.4E + 38 
com 7 a 8 dígitos significativos. 

DOÜBLE 

Ocupa oito bytes e varia entre 5.0E-324 a 1.7E-1-308 com 15 a 16 dígitos significativos. 

EXTENDED 

Ocupa dez bytes e varia entre 3.4E-4932 a 1.1E+4932 com 19 a 20 dígitos significativos. 

COMP 

É um tipo real que só armazena inteiros. Ocupa oito bytes e varia entre -2E+63 4-1 a 
2E + 63—1. 

CONSTANTES 

A única diferença com a versão 3.0 é que agora as constantes tipadas são armazena¬ 
das no segmento de dados. 
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O OPERADOR @ 


O operador @ ( address of — endereço do) é usado para o tratamento de alocação de 
memória dinâmica e retorna o endereço, no formato de ponteiro, de uma variável declarada 
formalmente. Ele simplifica o uso de ponteiros quando usados para sobrepor outras variáveis 
na memória. 


ENTRADA E SAÍDA 


• A versão 3.0 suportava os dispositivos CON:, TRM: E LST:. Na versão 4.0 foram 
substituídos pelos dispositivos CON (“console”: vídeo para saída e teclado para 
entrada), PRN, LPT1, LPT2 e LPT3 (referentes à impressora). 

• O dispositivo LST ainda funciona para saída na impressora se a unidade Printer 
for especificada. 

• O Turbo Pascal 4.0 e 5.0 tem a capacidade de escrever diretamente na memória de 
vídeo ou usar as rotinas do BIOS quando usa a unidade Crt. Você controla o méto¬ 
do usando a variável DirectVideo. Se Direct Video for verdadeira (default), será 
usado acesso direto, caso contrário serão usadas chamadas ao BIOS. 

• A utilização de uma nova função para leitura de um caractere pressionado no te¬ 
clado. O ReadKey retoma um caractere pressionado. Se a tecla gerar um código de 
“scan”, ReadKey retornará #0 e uma nova chamada a ReadKey lerá o caractere 
seguinte ao código de “scan”. 


UNITDOS 

VARIÁVEL PREDEFINIDA DOSERROR (unit DOS) 

Conterá um código referente ao erro ocorrido, que será armazenado na variável 
inteira DosError 


0 nenhum erro 
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2 arquivo não foi encontrado 

3 path não encontrado 

5 acesso proibido 

6 handle inválido 

8 não há memória suficiente 

10 ambiente inválido 

11 formato inválido 

18 mais nenhum arquivo 

PROCEDIMENTOS DE DATA E HORA 

GetDate (var Ano, Mes, Dia, DiaSemana: Word); 

Retorna a data do sistema nos parâmetros Ano, Mes, Dia, DiaSemana. O ano con¬ 
tém o século (1988 em vez de 88) e o DiaSemana varia de 0 a 6, sendo o domingo representado 
pelo 0. 


GetFTimes (var F; var Tempo: Longint); 

Lê a identificação de tempo do arquivo F. O conteúdo desta identificação, armaze¬ 
nado na variável Tempo, contém a data e hora do arquivo. Para descodificar o conteúdo de 
Tempo deve-se usar o procedimento UnpackTune. 

GetTime (var Hora, Mn, Seg, DecSeg: Word); 

Retorna a hora do sistema nos parâmetros Hora, Min, Seg, DecSeg. 

PackTime (var DT: DateTime; var Tempo: Longint); 

Compacta os dados de data e hora para a variável Tempo. Isto é usado antes do pro¬ 
cedimento SetFTime. 
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Set Date (Ano, Mes, Dia: Word); 

Ajusta a data do sistema. O ano deve incluir o século (ex.: 1988). Se os valores dos 
parâmetros estiverem errados, a data não será corrigida. 

SetFTime (var F; Tempo: Longint); 

Marca a identificação de tempo do arquivo F. Antes de chamar este procedimento, 
deve-se criar a variável Tempo usando o procedimento PackTime. 

SetTime (Hora, Min, Seg, DecSeg: Word); 

Ajusta a hora do sistema. Se os valores dos parâmetros estiverem errados, a hora 
não será corrigida. 

UnpackTime (Tempo: Longint; var DT: DateTime); 

Interpreta a variável Tempo que contém data e hora de um arquivo. Este procedi¬ 
mento deve ser usado depois de GetFTime. 

FUNÇÕES DE CONSULTA SOBRE O ESPAÇO EM DISCO 

DiskFree (Drive: Byte): Longint; 

Retoma o espaço livre no disco contido em Drive (especificado por um número: 0 — 
unidade em uso, 1 — unidade A, 2 — unidade B etc...). 

DiskSize (Drive: Byte): Longint; 

Retorna o espaço total do disco contido em Drive (especificado por um número: 0 — 
unidade em uso, 1 — unidade A, 2 — unidade B etc...). 
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PROCEDIMENTOS PARA ARQUIVOS 

GetFAttr (var F; var Atrib: Word); 

Retorna o atributo da variável de arquivo F, que já deve ter sido associado (com 
Assign) mas não aberto. 

FindFirst (Path: String; Atrib: Word; var F: SearchRec); 

Procura no diretório indicado por Path e retoma o primeiro arquivo normal ou 
arquivo com atributos que se encaixem naqueles contidos em Atrib. 

FindNext (var F: SearchRec); 

Continua a busca iniciada por FindFirst. A variável DosError conterá o valor 18 
quando não achar mais nenhum arquivo. Se nenhum atributo for indicado (ex.: Atrib = 0), 
estes procedimentos retomarão somente arquivos normais (aqueles sem atributos). 

SetFAttr (var F; Atrib: Word); 

Ajusta o atributo da variável de arquivo F, que já deve ter sido associado (com Assign) 
mas não aberto. 

PROCEDIMENTOS PARA INTERRUPÇÕES, PROGRAMAS 
RESIDENTES, SAÍDAS PARA O DOS E OUTROS 

DosExitCode: Integer; 

Esta função retoma o código de saída de um subprocesso. O byte mais elevado do 
inteiro será 0 para terminação normal, 1 para terminação forçada por CTRL-C e 3 quando ter¬ 
minada pelo procedimento Keep. 

DosVcrsion: Word; 

Retoma o número da versão do DOS, separado no byte superior (número da atuali¬ 
zação) e no byte inferior (número da versão do DOS). 
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EnvCount: Integer, 

Retoma o número de strings contidos no ambiente DOS. 

EnvStr (índice: integer): String; 

Retoma uma string contida no ambiente DOS. Esta string deve ser indicada pelo 
índice ao chamar a função e este valor pode variar entre 1 (para a primeira string) até o valor 
máximo contido em EnvCount. 

Exec (PathCommandCom, Comando: String); 

Permite a saída do seu programa para o sistema operacional. PathCommandCom 
deve indicar o c aminho e o nome do Command.Com em seu disco. Comando deve conter a 
ordem a ser dada no sistema operacional. Se Comando contiver uma string vazia, o Turbo 
Pascal deixará executar comandos diretamente no prompt do sistema operacional. Neste caso. 
para retomar ao programa em Pascal, digite EXIT. É necessário ajustar a memória com a dire¬ 
tiva {SM}. 


FExpand (Patfa: PathStr): PathStr; 

Esta função retoma o conteúdo do parâmetro Path escrito da maneira mais comple¬ 
ta possível: com drive, subdiretórios, nome e extensão. 0 tipo PathStr definido na Unit DOS 
equivale a string[79]. 

FSplit (Path: PathStr; var Diretorio: DirStr, 

var Nome: NameStr, ver Extensão: ExtStr); 

Retoma o nome passado no parâmetro Path dividido nas suas três partes básicas: 
diretório, nome e extensão. Os tipos utilizados já foram definidos na Unit DOS. Veja também 
a função FExpand. 

GetCBreak (var Status: Boolean); 

Retoma no parâmetro Status o estado atual da checagem de CTRL-BREAK feita 
peio DOS. Se Status»= troe então a checagem é realizada a cada chamada do sistema, caso con¬ 
trário (Status«false), a checagem só é realizada nas operações de entrada e saída (1/0). 
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GetEnv (v_amb: string): string; 

Retoma a string que contém o valor da variável do ambiente DOS especificada em 

y _amb. 

GetlntVec (Numlnt: Byte; var Veton Pointer); 

Retoma o endereço usado atualmente pela interrupção Numlnt no parâmetro Vetor. 
GetVerify (var Status: Boolean); 

Retoma no parâmetro Status o estado atual do flag de verificação do DOS. Se 
Status=true então a verificação para escrita em disco é realizada, caso contrário 
(Status=false), a verificação não é realizada. 

Keep (CodSaída: Word); 

Permite terminar o programa e deixá-lo residente em memória. CodSaída contém o 
código de saída do DOS depois de tèrminada a execução do programa. 

SetCBreak (Status: Boolean); 

Ajusta o estado da checagem de CTRL-Break no DOS através do parâmetro Status. 
Veja também GetCBreak. 

SetlntVec (Numlnt: Byte; Vetor: Pointer); 

Troca o endereço atual da interrupção Numlnt pelo endereço contido em Vetor. 
SetVerify (Status: Boolean); 

Ajusta o estado de verificação de escrita em disco pelo DOS através do parâmetro 
Status. Veja também GetVerify. 

SwapVectors; 


Troca o conteúdo dos SavelntXX pelos vetores de interrupção atuais. 
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GRÁFICOS DA VERSÃO 40 e 5.0 


Todos os programas escritos na versão 3.0 podem ser rodados com poucas modifica¬ 
ções nas versões 4.0 e 5.0 se usarem a unidade Graph3. 

Além disto, as versões 4.0 e 5.0 ainda têm uma nova unidade chamada Graph com 
novas rotinas gráficas poderosas e rápidas. 


CONSTANTES GRÁFICAS 


Códigos retornados em GraphResult 


grOk 

grNoInitGraph = 

grNotDetected = 

grfileNotFound = 

grlnvalidDriver = 

grNoLoadMem = 

grNoScanMem = 

grNoFloodMem = 

grFòntNotFound = 

grNòFòntMem = 

grlnvalidMode = 

grError = 

grIOerror = 

grlnvalidFont = 

grlnvalidFòntNum = 

grlnvalidDeviceNum = 


0 ; 

- 1 ; 

• 2 ; 

-3 

-4; 

•5; 

- 6 ; 

•7; 

- 8 ; 

•9; 

- 10 ; 

-11; {Erro genérico} 
- 12 ; 

-13; 

-14; 

-15; 


DEFINE DRIVERS GRÁFICOS 


CurrentDriver = -128; 

Detect = 0; 

CGA = 1; 

MCGA = 2; 

EGA = 3; 


{usado em GetModeRange} 

{ativa detecção automática da placa em uso} 
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EGA64 = 4; 

EGAMono = 5; 

IBM8514 = 6; 

HercMono = 7; 

ATT400 = 8; 

VGA = 9; 

PC3270 = 10; 


MODOS GRÁFICOS PARA CADA DRIVER 


CGACO = 0; 

CGAC1 = 1; 

CGAC2 = 2; 

CGAC3 = 3; 

CGAHi = 4; 

MCGACO = 0; 

MCGAC1 = 1; 

MCGAC2 = 2; 

MCGAC3 = 3; 

MCGAMed = 4; 

MCGAHi = 5; 

EGALo = 0; 

EGAHi = 1; 

EGA64Lo = 0; 

EGA64HÍ = 1; 

EGAMono Hi = 3; 

HercMonoHi = 0; 

ATT400C0 = 0; 

ATT400C1 = 1; 

ATT400C2 = 2; 

ATT400C3 = 3; 


(320x200 palette 0: Verde Claro, 

Vermelho Claro, Amarelo; 1 página} 

(320x200 palette 1: Azul Ciano Claro, Magenta Claro, Branco; 

1 página} 

(320x200 palette 2: Verde, Vermelho, Marrom; 1 página} 
(320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 1 página} 
(640x200 1 página} 

(320x200 palette 0: Verde Claro, Vermelho Claro, .Amarelo; 1 
página} 

(320x200 palette 1:-Azul Ciano Claro, Magenta Claro, Branco; 

1 página} 

(320x200 palette 2: Verde, Vermelho, Marrom; 1 página} 
(320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 1 página} 
(640x200 1 página} 

(640x480 1 página} 

(640x200 16 cores 4 páginas} 

(640x350 16 cores 2 páginas} 

(640x200 16 cores 1 página} 

(640x350 4 cores 1 página} 

(640x350 64K de memória na placa, 1 página; 256K. 2 páginas} 
(720x348 2 páginas} 

(320x200 palette 0; Verde Claro, Vermelho Claro. .Amarelo; 

1 página} 

(320x200 palette 1; Azul Ciano Claro, Magenta Claro, Branco; 

1 página} 

(320x200 palette 2: Verde, Vermelho, Marrom; 1 página} 
(320x200 palette 3: Azul Ciano, Magenta, Cinza Claro; 1 página} 
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ATT400Med 

= 4, 

}640x200 1 página} 

ATT400HÍ 

= 5 

{640x400 1 página} 

VGALo 

= 0 

{640x200 16 cores 4 páginas} 

VGAMed 

= 1 

{640x350 16 cores 2 páginas} 

VGAHi 

= 2 

{640x480 16 cores 1 página} 

PC3270HÍ 

= 0 

{720x350 1 página} 

IBM8514LO 

= 0 

{640x480 256 cores} 

IBM8514HI 

= 1 

{1024x768 256 cores} 

MaxColors 

= 15; 


ESTILOS DE LINHA E ESPESSURAS PARA Get/ SetLineStyle 


SoMLn 

DoaedLn 

CenterLn 

DashedLn 

UserBitLn 

NormWidth 

ThickWidth 



{Estilo de linha definido pelo usuário} 


CONSTANTES PARA Set/ GetTextStyle 


DefaultFònt 

= 0 

TriplexFont 

= 1 

SmallFont 

= 2 

SansSerifFont 

= 3 

GothicFont 

= 4 

HorizDir 

= 0 

VertDir 

= 1; 

UserCharSize 

= 0; 


{Da esquerda para a direita} 

{De baixo para cima} 

{Tamanho de caractere definido pelo usuário} 


CONSTANTES PARA CLIPPING 

ChpOn = true; 

ClipOff = false; 
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CONSTANTES P/ BAR3D 

TopOn = true; 

TopOff = false; 


PADRÕES PARA PREENCHIMENTO COM Get/ SetFillStyle 


EmptyFill 

= 0; 

{preenche área na cor de fundo} 

SolidFill 

= l; 

{preenche área com cores sólidas} 

LineFíll 

= 2; 

{padrão - - ■} 

LtSlashHll 

= 3; 

{padrão / / / } 

SlashFlll 

= 4; 

{padrão / / / com linhas grossas} 

BkSlashFill 

= 5; 

{padrão \ \ \ com linhas grossas} 

LtBkSlashFill 

= 6; 

{padrão \\\} 

HatchFill 

= 7; 

{hachura horizontal} 

XHatchfill 

= 8; 

{hachura diagonal} 

InterleaveHll 

= 9; 

{padrão reticulado} 

WideDotFill 

= 10; 

{padrão pontilhado muito espaçado} 

CloseDotFill 

= ll; 

{padrão pontilhado pouco espaçado} 

UserFlll 

= 12; 

{padrão definido pelo usuário} 


OPERADORES BITBLT PARA O Putlmage 

NormalPut = 0; {MOV} 

CopyPut = 0; {MOV} 

XORPut = 1; {XOR} 

OrPut = 2; {OR} 

AndPut = 3; {AND} 

NotPut = 4; {NOT} 


JUSTIFICAÇÃO HORIZONTAL E VERTICAL PARA SetTextJusti fy 

LeftText = 0; 

CenterText = 1; 

RightText = 2; 
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BottomText = 0; 

TopText = 2; 

NOVOS PROCEDIMENTOS E FUNÇÕES GRÁFICAS 

(Necessitam de Uses Graph no programa e drivers .BGI no diretório atual ou na memória.) 

FUNÇÕES DE MANUTENÇÃO DE ERROS 

GraphErrorMsg (CodigoErro: integer): String; 

Retoma uma string contendo uma mensagem para o erro indicado por CodigoErro. 
GraphResult: integer; 

Retoma um código de erro para a última operação realizada. 


PROCEDIMENTOS E FUNÇÕES PARA DETECÇÃO, INICIALIZAÇÃO 
E MODOS DE VÍDEO 

CloseGraph; 

Volta a tela ao modo anterior e retira do heap todo as variáveis dinâmicas usadas 
pelo modo gráfico. 

DetectGraph (var DriverGraf, ModoGraf: integer); 

Analisa qual placa de vídeo está sendo usada e recomenda o modo gráfico mais 
adequado. 

GetAspectRatio (var Xasp, Yasp: word); 

A razão de aspecto é a razão entre os pixels horizontais e verticais que produz uma 
imagem bem proporcionada na tela. Depois de chamar GetAspectRatio, dividaXasp por Yasp 
para determinar a razão de aspecto do seu equipamento. 
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GetDriverName: String; 

Esta função retorna uma string com o nome do driver atualmente em uso. 

GetGraphMode: integer; 

Esta função retorna um valor inteiro que indica o modo gráfico atualmente em uso. 
GetMaxMode: Word; 

Retoma o número máximo do modo do driver gráfico em uso. 

GetMaxX: integer; 

Função que retoma o valor da coordenada horizontal do pixel no canto mais à direita. 
GetMaxY: integer; 

Função que retoma o valor da coordenada vertical do pixel no canto inferior. 

GetModeName (Numero: Word): string; 

Retoma uma string com o nome do modo indicado pelo parâmetro Numero. 
GetModeRange (DriverGraf: integer; var LoJVfode, HiMode: integer); 

Retoma os modos máximo e mínimo para um driver gráfico especificado. 
GetPalette (var Pai: PaletteType); 

Preenche os campos da variável registro Pal de tipo predefinido PaletteType com o 
tamanho e as cores atuais da palette. 

GetPaletteSize: word; 


Retoma o tamanho da palette. 
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GetX: integer; 

Função que retoma a coordenada horizontal da posição at ual, sempre relativa ao 
viewport em uso. Isto quer dizer que se GetX retomar Q, a posição será no lado esquerdo do 
viewport e não no lado esquerdo da tela. 

GetY: integer; 

Função que retoma a coordenada vertical da posição atual, sempre relativa ao 
viewport em uso. Isto quer dizer que se GetY retomar 0, a posição será no topo do viewport e 
não no topo da teia. 

GraphDefaults; 

Muda a posição atual para o topo esquerdo da teia (0,0) e inicializa todos os procedi¬ 
mentos gráficos (viewport, palette, cores, características das linhas, textos gráficos etc.). 

InitGraph (var DriverGraf: integer; 

var ModoGraf: integer; 

DriverPath: String); 

Inicializa o ambiente gráfico e entra em modo gráfico. Se o DriverGraf for Detect 
(0), o InitGraph vai determinar qual driver e qual modo devem ser usados. DriverPath indica 
qual o caminho (path ) para o diretório onde os drivers gráficos se encontram. Deixa a posição 
atual no topo esquerdo da tela (0,0). 

SetGraphMode (Modo: integer); 

Ajusta o ambiente gráfico para o Modo gráfico escolhido. Deixa a posição atual no 
topo esquerdo da tela (0,0). 

RestoreCrtMode; 


Retoma ao modo da tela anterior ao modo gráfico. 
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ROTINAS DE TELA E ViewPort 

ClearDevice; 

Apaga a tela atual e deixa a posição atual no topo esquerdo do viewport (0,0). 

ClearViewPort; 

Limpa o viewport e assume as cores da palette(O) para a tela. Deixa a posição atual 
no topo esquerdo da tela (0,0). 

GetViewSettíngs (var ViewPort: ViewPortType); 

Retoma uma variável registro predefinida, contendo os dados do viewport atual. 

SetActivePage (Pagina: word); 

Direciona toda saída da tela para a página indicada. Para tomar a página visível, use 
o procedimento SetVisualPage. 

SetViewPort (xl, y2, x2, y2: integer; Clip: booiean); 

Define uma porção da tela, de xl, yl (canto superior esquerdo) até x2, y2 (canto 
inferior direito). Se Clip for verdadeiro, o clipping estará ligado Depois do viewport ligado, 
todas as coordenadas estarão relacionadas com o viewport e não com as coordenadas físicas da 
tela. Deixa a posição atual no topo esquerdo (0,0). 

SetVisualPage (Pagina: word); 

Troca a página gráfica visualizada na tela por aquela indicada na variável pagina. 


ROTINAS DE MANUSEIO DE PIXELS 

PutPixel (X, Y: integer; Cor: word); 

Coloca um pixel na coordenada x, y. A cor é determinada pela variável cor. 
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GetPixe! (X, Y: integer): word; 

Esta função retoma o valor da cor do pixel na coordenada x, y. 

ROTINAS PARA CRIAÇÃO DE LINHAS 

GetLineSetdngs (var InfoLinha: LineSettingsType); 

Retoma em InfoLinha (variável registro) três dados que determinam a aparência da 
linha desenhada. 

Line (xl, yl, x2, y2: integer); 

Desenha uma reta da coordenada xl, yl até x2, y2. 

LineTo (X, Y: integer); 

Desenha uma linha da posição atual até x, y. 

LineRel (Dx, Dy: integer); 

Desenha uma linha da posição atual até a posição relativa definida por Dx, Dy. 
MoveRel (Dx, Dy: integeri; 

Move a posição atual para uma nova posição deslocada Dx, Dy da original. 

MoveTo (X, Y: integer); 

Move a posição atual para a coordenada x, y. 

SetLineStyie (EstiloLinha: word; 

Padrao: word; 

Espessura: word); 


linha. 


Define o estilo da linha, o padrão e a espessura a serem usados ao desenhar uma 
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ROTINAS PARA CRIAÇÃO DE POLÍGONOS, FIGURAS E PREENCHIMENTO 
DE ÁREAS 

Bar (xl, yl, x2, y2: integer); 

Desenha um retângulo da coordenada xl, yl (canto superior esquerdo) até a coorde¬ 
nada x2, y2 (canto inferior direito), preenchendo-o com o padrão (pattem ) selecionado com 

SetFillStyle. 

Bar3D (xl, yl, x2, y2: integer; Prof: word; Topo: boolean); 

Desenha um retângulo da coordenada xl, yl (canto superior esquerdo) até a coorde¬ 
nada x2, y2 (canto inferior direito), preenchendo-o com o padrão (pattem) selecionado com 
SetFdlStyle. A variável Prof indicará a profundidade em perspectiva isométrica e Topo indica¬ 
rá se o topo do retângulo deve ser aberto ou fechado (use as constantes TopOn e TopOff). 

DrawPoly (NumPontos: word; var PontosPolig); 

Desenha uma poligonal que liga os pontos definidos na matriz PoatosPolig (matriz 
tipo registro com campos para X e Y do tipo word). A quantidade de pontos é definida em 
NumPontos. Em caso de coordenadas erradas na matriz, GraphResult retomará o valor -6. 

GetíiDPattem (var PadraoFdl: FUlPattemType); 

Retoma o último padrão usado por SetFíllPatteni. 

GetFaiSettings (var InfoFill: FillSettingsType); 

Retoma um registro do tipo FillSettingsType contendo dois parâmetros Pattern e 
Color, que indicam o tipo de hachura e a cor atuais. 

FlllPoly (NumPontos: word; var PontosPolig); 

Desenha uma poligonal que liga os pontos definidos na matriz PontosPolig (matriz 
tipo registro com campos para X e Y do tipo word), preenchendo-a com o padrão e a cor defi¬ 
nidas por SetíillPatteni, SetfUStyle e SetColor. A linha que limita o polígono é desenhada de 
acordo com o estilo de linha e cor atuais e deve estar perfeitamente fechada. A quantidade de 
pontos no polígono é definida em NumPontos. Em caso de coordenadas erradas na matriz, 
GraphResult retornará o valor -6. 
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FtoodFHl (X, Y: integer; Border: word); 

Preenche a área fechada pela linha de cor Borda. Esta área deve conter-o ponto de 
coordenada x. y. 

Rectangle (xl, yl, x2, y2: integer); 

Desenha um retângulo da coordenada xl, yl (canro superior esquerdo) até a coorde¬ 
nada xl y2 (canto inferior direito), usando o estilo de linha e cor atuais. 

SetFIIIPattern (Padrao: FillPatternType; Cor: word); 

Define um padrão e uma cor a serem usados em preenchimento de áreas gráficas. 
Padrao é uma variável do tipo predefinido FillPatternType (uma matriz de bytes com 8 ele¬ 
mentos) que gera um padrão de 8x8 pixels, sendo um pixel para cada bit do byte. 

SetFiBStyle (Padrao: word; Cor: word); 

Escolhe uma cor e um padrão de preenchimento (12 predefinidos indo de 0 a 11). 

SetGraphBufSze (TamBuf: word); 

Permite mudar o tamanho do buffer (TamBuf) reservado para preenchimento de 

áreas. 


ROTINAS DE ARCOS, CÍRCULOS E OUTRAS CURVAS 
Arc(X, Y: integer; Anglnic, AngRnal, Raio: word); 

Desenha um arco com centro em x, y, de raio especificado em Raio. O arco começa 
em Anglnic e termina em AngFinal, sendo desenhado sempre no sentido anti-horário (ângulo 0 
equivale a leste ou 3:00 horas). 

C3rde(X, Y: integer; Raio: word); 

Desenha um círculo de centro em x, y e raio especificado. 
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EUipse (X, Y: integer; 

Anglnic, AngFinal: word; 

XRaio, YRaio: word); 

Produz uma elipse de centro em x, y. O desenho começa em Anglnic e termina em 
AngFinal e a elipse torna-se mais alongada quanto for a diferença entre XRaio e YRaio. Além 
disto, é desenhada sempre no sentido anti-horário (ângulo 0 equivale a leste ou 3:00 horas). 

GetArcCoords (var CoordArco: ArcCoordsType); 

Retoma uma variável registro, contendo dados sobre o último arco criado pelo pro¬ 
cedimento Arc, dados estes que podem ser usados para criar uma “fatia” em gráficos de seto¬ 
res (tipo torta), ao ligar linhas do centro do arco para as suas extremidades. 

PieSlice (X, Y: integer; Anglnic, AngFinal, Raio: word); 

Desenha uma “fatia” para um gráfico de setores, com centro em x, y e raio determi¬ 
nado em Raio. O desenho começa em Anglnic e termina em AngFinal, sempre em sentido anti- 
horário (ângulo 0 equivale a leste ou 3:00 horas). A “fatia” será preenchida com o padrão e a 
cor definidas em SetFillStyle e SetFillPattem 

Sector (X, Y: integer; 

Anglnic, AngFinal: word; 

XRaio, YRaio: word); 

Produz um setor de elipse de centro em x, y. O desenho começa em Anglnic e termi¬ 
na em AngFinal. XRaio e YRaio são os raios da elipse. Além disto, o setor é desenhado sempre 
no sentido anti-horário (ângulo 0 equivale a leste ou 3:00 horas) e será colorido e preenchido de 
acordo com SetFillPattem e SetFillStyle. 


ROTINAS PARA PALETTES E CORES 
GetBkColor: word; 


Esta função retoma um número que indica a cor de fundo atual. 




396 Turbo Pascal Avançado 


GetColor: word; 

Esta função retorna um número que indica a cor atuai. 

GetMaxCoior: word; 

Esta função retorna o número máximo da cor que pode ser passada como parâmetro 
em SetColor. 

GetPalette (yar Palette: PaletteType); 

Retoma os valores atuais da palette numa variável tipo registro, predefinida com 
dois campos: Size, que indica o número de cores na palette e Colors, que contém as cores da 
palette. 

SetAllPalette (var Palette); 

Troca os dados da palette atual por aqueles contidos na variável registro predefinida 

Palette. 

SetBkColor (Cor: word); 

Escolhe a cor de fundo indicada por Cor. SetBkColor (0) muda a cor de fundo para 

preto. 

SetColor (Cor: word); 

Deixa a cor para desenho valendo Cor. 

SetPalette (NiimCor: word; Cor: shortmt); 

Altera a cor de número NamCor para a definida em Cor, permitindo alterar o padrão 
da palette. 

SetRGBPalette (Num_cor, Verm, Verd, Azul: Integer); 


Permite alterar a palette usada pelos drivers VGA e IBM-8514. 
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ROTINAS DE MANUSEIO DE BLOCOS DE PIXELS 

Getlmage (xl, yl, x2, y2: integer; var Figura); 

Captura a imagem contida em xl, yl (canto superior esquerdo) e xZ y2 (canto infe¬ 
rior direito) no buffer Figura. Este buffer tem de ser pelo menos do tamanho definido “mais 
quatro”. Use a função ImageStze para saber o tamanho necessário. 

ImageSize (xl, yl, x2, y2: integer): word; 

Esta função retorna a quantidade de memória necessária para armazenar a imagem 
definida em xl, yl e x2, y2. 

Putlmage (X, Y: integer; var Figura; BitBlt: word); 

Transfere a imagem contida no buffer Figura para a tela na coordenada x, y, sem 
fazer “clipping” (ou seja: se a imagem sair fora do limite, não será transferida). BitBlt indica 
como a imagem deve ser transferida de acordo com as constantes predefinidas NormalPut. 
CopyPut, XORPut, AndPut e NotPut. 


ROTINAS PARA TEXTOS NO MODO GRÁFICO 

GetTextSettings (var InfoText: TextSettingsType); 

Retoma os dados a respeito do estilo do tipo de letra atual. Os valores são retoma¬ 
dos dentro de uma variável registro de tipo predefinido e dizem respeito a tipo escolhido, dire¬ 
ção, tamanho e justificação horizontal ou vertical. 

OutText (StringTexto: string); 

Escreve a string contida em StringTexto na posição atual da tela gráfica. 

OutTextXY (X, Y: integer; StringTexto: string); 

Escreve a string contida em StringTexto na posição x, y da tela gráfica. Não atualiza 
a posição atual e não faz “clipping” com caracteres gráficos defauit. 
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SetTexÜustify (Horiz, Vert: word); 

Determina a maneira como o texto será escrito em relação à posição atual. Existem 
constantes predefinidas para valores horizontais (LeftText, CenterText e RightText) e verticais 
(BottomText, CenterText e TopText). 

SetTexíStyie (Font, Direcao: word; TamCarac: word); 

Define a maneira como o texto será mostrado na tela. Existem cinco tipos de letras 
disponíveis (0 a 4, sendo que do 1 ao 4 ficam armazenados em disco). Existem constantes pre¬ 
definidas para serem usadas como valor para Font (DefaultFònt, TriplexFont, SmallFont, 
SansSerifFont e GothicFont), outras para Direcao (HorizDir e VertDir) e também para o 
tamanho do caractere dado por TamCarac (NonnSize). 

SetUserCharSize (MnltX, DivX, NfaltY, Di?Y: byte); 

Permite alterar o comprimento ou a altura para: alguns tipos de letras. 

SetWriteMode (Modo: Integer); 

Ajusta o modo de escrita de acordo com o Modo indicado: CopyPut (valor zero) ou 
XORPut (valor 1); 

TextHeight (StringTexto: string): word; 

Esta função retoma a altura em pixels da string contida em StringTexto. A altura 
depende da fonte em uso. 

TextWidth (StringTexto: string): word; 

Esta função retoma o comprimento em pixels da string contida em StringTexto (de¬ 
pende da fonte em uso). 
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FUNÇÕES ESPECIAIS 

RegisterBGIfont (font: pointer): integer; 

Esta função retorna um número inteiro que pode indicar se houve um erro (número 
negativo) ou retorna o número do tipo de letra atual. 

RegisterBGIdriver (driver: pointer): integer; 

Esta função retorna um número inteiro que pode indicar se houve um erro (núme¬ 
ro negativo) ou retorna o número do driver atual. 


OVERLAYS 

(Necessitam de Uses Overlay no programa.) 

OvrCiearBuf; 

Limpa o buffer reservado para overlays , forçando o carregamento em memória das 
outras overlays. 

OvrGetBuf: Longlnt; 

Esta função retorna o tamanho atual do buffer para overlays. 

Ovrlnit (Nome_arq: String); 

Inicializa o gerenciador de overlays do Turbo Pascal e abre o arquivo overlay indica¬ 
do pelo parâmetro Nome_arq. 

OvrlnitEMS; 


Permite carregar o arquivo overlay para a expansão de memória tipo EMS. 
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OvrSetBuf (Tam: Longlnt); 

Permite ajustar o tamanho do buffer de overlays para aquele indicado em Tam. 


MENSAGENS DE ERRO DO TURBO 5.0 

(As mensagens de erro variam a cada versão.) 


ERROS NA COMPILAÇÃO 

1 Acabou espaço na memória. 

2 Identificador esperado. 

3 Identificador desconhecido. 

4 Identificador repetido (já existente). 

5 Erro de sintaxe. 

6 Erro na sintaxe da constante real. 

7 Erro na sintaxe da constante inteira. 

8 Constante tipo String excede a linha. 

9 Muitos arquivos aninhados (um dentro do outro). 

10 Fim de arquivo inesperado. 

11 Linha muito longa. 

12 Identificador de tipo esperado. 

13 Muitos arquivos abertos. 

14 Nome de arquivo inválido. 

15 Arquivo não foi encontrado. 

16 Disco cheio. 

17 Diretiva de compilação inválida. 

18 Muitos arquivos. 

19 Tipo indefinido na definição de um ponteiro (pointer). 

20 Identificador de variável esperado. 

21 Erro no tipo. 

22 Estrutura muito grande. 

23 Tipo base de um conjunto está fora do limite. 

24 Componentes do arquivo não podem ser outros arquivos. 

25 Comprimento da String é inválido. 
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26 Tipos incompatíveis. 

27 Faixa de valores inválidas para o tipo base. 

28 Limite inferior maior que limite superior. 

29 Tipo ordinal (escalar) esperado. 

30 Constante inteira esperada. 

31 Constante esperada. 

32 Constante inteira ou real esperada. 

33 Identificador de tipo esperado. 

34 Tipo de resultado da função é inválido. 

35 Identificador de Labei esperado. 

36 BEGIN esperado. 

37 END esperado. 

38 Expressão inteira esperada. 

39 Expressão ordinal (escalar) esperada. 

40 Expressão booleana esperada. 

41 Tipo do operando não corresponde ao tipo do operador. 

42 Erro na expressão. 

43 Associação ilegal. 

44 Identificador de campo esperado. 

45 Arquivo-objeto muito grande. 

46 Procedimento ou Função externa indefinida. 

47 Registro inválido no arquivo-objeto. 

48 Segmento de código muito grande. 

49 Segmento de dados muito grande. 

50 DO esperado. 

51 Definição PUBLIC inválida. 

52 Definição EXTRN inválida. 

53 Muitas definições EXTRN. 

54 OF esperado. 

55 INTERFACE esperado. 

56 Referência relocável inválida. 

57 THEN esperado. 

58 TO ou DOWNTO esperado. 

59 Forward indefinido. 

60 Muitos procedimentos. 

61 Typecast inválido. 

62 Divisão por zero. 

63 Tipo de arquivo inválido. 



402 Turbo Pascal Avançado 


64 Não é possível usar variáveis deste tipo em READ ou WRITE. 

65 Variável ponteiro (pointer) esperada. 

66 Variável String esperada. 

67 Expressão String esperada. 

68 Unit não foi encontrada. 

69 Nome da Unit incompatível. 

70 Versão incompatível da Unit. 

71 Nome duplicado (repetido) da Unit. 

72 Erro no formato do arquivo da Unit. 

73 IMPLEMENTATION esperado. 

74 Tipos incompatíveis entre o seletor e as constantes do CASE. 

75 Variável registro esperada. 

76 Constante fora do limite. 

77 Variável arquivo esperada. 

78 Expressão ponteiro (pointer ) esperada, 

79 Expressão inteira ou real esperada. 

80 Labei não está presente no bloco atual. 

81 Labei já foi definido. 

82 Labei indefinido na área anterior dos comandos. 

83 Argumento @ inválido. 

84 UNIT esperado. 

85 esperado. 

86 esperado. 

87 4 esperada. 

88 44 (” esperado. 

89 44 esperado. 

90 44 =” esperado. 

91 44 :=” esperado. 

92 44 [” ou “(.” esperado. 

93 4 T’ ou 44 .)” esperado. 

94 44 .” esperado. 

95 44 ..” esperado. 

96 Variáveis demais, 

97 Variável de controle do FOR é inválida. 

98 Variável inteira esperada. 

99 Arquivos não são permitidos aqui. 

100 Comprimento da String é incompatível. 

101 Ordenação inválida dos campos. 
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102 Constante String esperada. 

103 Variável inteira ou real esperada. 

104 Variável ordinal (escalar) esperada. 

105 Erro no INLINE. 

106 Expressão do tipo caractere esperada. 

107 Itens de relocação demais. 

108 Não há memória suficiente para executar o programa. 

109 Não consegue achar arquivo EXE. 

110 Não pode executar uma Unit. 

111 Compilação abortada. 

112 Constante do CASE fora do limite. 

113 Erro no comando. 

114 Não pode chamar um procedimento Interrupt. 

115 O co-processador 80x87 é necessário para^compilar isto. 

116 Precisa estar no modo 80x87 para compilar isto. 

117 Endereço destino não encontrado. 

118 Inclusão de arquivos não é permitida aqui. 

119 Erro no formato do arquivo TPM. 

120 NIL esperado. 

121 Qualificador inválido. 

122 Referência inválida à variável. 

123 Símbolos demais. 

124 Área dos comandos muito grande. 

125 Módulo não tem informação para debug (depuração). 

126 Arquivos devem ser parâmetros VAR (passagem de parâmetros por referência). 

127 Símbolos condicionais em excesso. 

128 Diretiva condicional em lugar errado. 

129 Diretiva ENDIF faltando. 

130 Erro nas definições condicionais iniciais. 

131 Cabeçalho incompatível com definição anterior. 

132 Erro crítico no disco. 

133 Não é possível avaliar esta expressão. 

134 Expressão terminada incorretamente. 

135 Especificador de formato inválido. 

136 Referência indireta inválida. 

137 Variáveis estruturadas não são permitidas aqui. 

138 Avaliação não é possível sem a Unit System. 

139 Não é permitido acessar este símbolo. 
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140 Operação de ponto flutuante inválida. 

141 Não é possível compilar overlays na memória. 

142 Variável procedure ou função esperada. 

143 Referência inválida a procedure ou função. 

144 Não é possível tornar esta unit num overlay. 


ERROS NA EXECUÇÃO (RUN TIME ERRORS) 

— erros de 1 a 99 equivalem aos códigos de erro do DOS; 

— erros de 100 a 149 equivalem aos erros de El S (1/ O); 

— erros de 150 a 199 são erros críticos; 

— erros de 200 a 255 são erros fatais. 

2 Arquivo não encontrado. 

3 Path (caminho) não encontrado. 

4 Muitos arquivos abertos. 

5 Negado acesso ao arquivo. 

6 Handle inválido para o arquivo. 

12 Código inválido de acesso ao arquivo. 

15 Número inválido do drive. 

16 Não pode remover o diretório atual. 

17 Não pode trocar nomes entre discos. 

100 Erro na leitura do disco. 

101 Erro na gravação em disco. 

102 Arquivo não associado. 

103 Arquivo fechado. 

104 Arquivo fechado para entrada. 

105 Arquivo fechado para saída. 

106 Formato numérico inválido. 

150 Disco protegido contra gravação. 

151 Unit desconhecida. 

152 Drive não está pronto. 

153 Comando desconhecido. 

154 Erro CRC nos dados. 

156 Erro na procura (seek) em disco. 

157 Tipo de meio desconhecido. 

158 Setor não encontrado. 


159 Impressora sem papel. 

160 Falha no dispositivo de impressão. 

161 Falha no dispositivo de leitura. 

162 Falha do Hardware. 

200 Divisão por zero. 

201 Erro na checagem de faixa. 

202 Erro de overflow no Stack. 

203 Erro de overflow no Heap. 

204 Operação de pointer I ponteiro) inválida. 

205 Overflow de ponto flutuante. 

206 Underflow na operação de ponto flutuante. 

207 Operação de ponto flutuante inválida. 

208 Gerenciador de overlays não foi instalado. 

209 Erro na leitura do arquivo overlay . 




OUTROS LIVROS NA ÁREA 


Carroll - Programação cm Turbo Pascal 

Collins - Programação Estruturada com Estudos de Casos cm Pascal 
Jamsa - Turbo Pascal 4 - Guia dc Referencia Básica 
Renzetti - Turbo Pascal - Comandos Básicos - Guia do Operador 
Wood - Turbo Pascal - Guia do Usuário 



